From f8d6348b3fec0c55768ebcd8dba446949b8a4ef7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 27 Apr 2018 19:46:44 -0400
Subject: - WIP: - Initial PHP back-end implementation.

---
 .../source/luxc/lang/translation/lua/eval.jvm.lux  | 58 +++++++++++-----------
 1 file changed, 29 insertions(+), 29 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/lua/eval.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/lua/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/eval.jvm.lux
index 8be5667e9..cc267e7d5 100644
--- a/new-luxc/source/luxc/lang/translation/lua/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/eval.jvm.lux
@@ -75,35 +75,35 @@
 
 (def: (lux-object host-object)
   (-> Object (Error Top))
-  (`` (cond (host.null? host-object)
-            (ex.throw Null-Has-No-Lux-Representation "")
-
-            (or (host.instance? java/lang/Boolean host-object)
-                (host.instance? java/lang/Long host-object)
-                (host.instance? java/lang/Double host-object)
-                (host.instance? java/lang/String host-object))
-            (ex.return host-object)
-
-            (host.instance? ByteString host-object)
-            (ex.return (ByteString::decode [] (:! ByteString host-object)))
-
-            (host.instance? DefaultTable host-object)
-            (let [host-object (:! DefaultTable host-object)]
-              (case (variant lux-object host-object)
-                (#.Some value)
-                (ex.return value)
-
-                #.None
-                (case (array lux-object host-object)
-                  (#.Some value)
-                  (ex.return value)
-
-                  #.None
-                  (ex.throw Unknown-Kind-Of-Host-Object (format "SECOND " (Object::toString [] (:! Object host-object)))))))
-
-            ## else
-            (ex.throw Unknown-Kind-Of-Host-Object (format "FIRST " (Object::toString [] (:! Object host-object))))
-            )))
+  (cond (host.null? host-object)
+        (ex.throw Null-Has-No-Lux-Representation "")
+
+        (or (host.instance? java/lang/Boolean host-object)
+            (host.instance? java/lang/Long host-object)
+            (host.instance? java/lang/Double host-object)
+            (host.instance? java/lang/String host-object))
+        (ex.return host-object)
+
+        (host.instance? ByteString host-object)
+        (ex.return (ByteString::decode [] (:! ByteString host-object)))
+
+        (host.instance? DefaultTable host-object)
+        (let [host-object (:! DefaultTable host-object)]
+          (case (variant lux-object host-object)
+            (#.Some value)
+            (ex.return value)
+
+            #.None
+            (case (array lux-object host-object)
+              (#.Some value)
+              (ex.return value)
+
+              #.None
+              (ex.throw Unknown-Kind-Of-Host-Object (format "SECOND " (Object::toString [] (:! Object host-object)))))))
+
+        ## else
+        (ex.throw Unknown-Kind-Of-Host-Object (format "FIRST " (Object::toString [] (:! Object host-object))))
+        ))
 
 (def: #export (eval code)
   (-> Expression (Meta Top))
-- 
cgit v1.2.3