From 4b7d81c1e0449adc031ece6299fe4d0a09f66347 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 1 May 2018 00:40:01 -0400
Subject: - WIP: - Initial PHP back-end implementation [missing procedures].

---
 new-luxc/source/luxc/lang/translation/php/eval.jvm.lux | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux
index ba9220f57..c6ff1a880 100644
--- a/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux
@@ -128,20 +128,12 @@
     (let [interpreter (|> compiler (get@ #.host) (:! //.Host) (get@ #//.interpreter))]
       (case (interpreter code)
         (#e.Error error)
-        (exec (log! (format "eval #e.Error\n"
-                            "<< " (_.expression code) "\n"
-                            error))
-          ((lang.throw Cannot-Evaluate error) compiler))
+        ((lang.throw Cannot-Evaluate error) compiler)
 
         (#e.Success output)
         (case (lux-object output)
           (#e.Success parsed-output)
-          (exec ## (log! (format "eval #e.Success\n"
-            ##               "<< " (_.expression code)))
-            (#e.Success [compiler parsed-output]))
+          (#e.Success [compiler parsed-output])
 
           (#e.Error error)
-          (exec (log! (format "eval #e.Error\n"
-                              "<< " (_.expression code) "\n"
-                              error))
-            ((lang.throw Cannot-Evaluate error) compiler)))))))
+          ((lang.throw Cannot-Evaluate error) compiler))))))
-- 
cgit v1.2.3