From ca238f9c89d3156842b0a3d5fe24a5d69b2eedb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 6 Apr 2018 08:32:41 -0400
Subject: - Adapted new-luxc's code to latest stdlib changes.

---
 new-luxc/source/luxc/lang/translation/js/eval.jvm.lux | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux
index d4546ca4c..3d4dbc782 100644
--- a/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux
@@ -11,6 +11,16 @@
         (lang (host [js #+ JS Expression Statement])))
   [//])
 
+(do-template [<name>]
+  [(exception: #export (<name> {message Text})
+     message)]
+
+  [Unknown-Kind-Of-JS-Object]
+  [Null-Has-No-Lux-Representation]
+
+  [Cannot-Evaluate]
+  )
+
 (host.import java/lang/Object
   (toString [] String))
 
@@ -101,9 +111,6 @@
           (#.Some output))))
     #.None))
 
-(exception: #export Unknown-Kind-Of-JS-Object)
-(exception: #export Null-Has-No-Lux-Representation)
-
 (def: (lux-object js-object)
   (-> Object (Error Top))
   (`` (cond (host.null? js-object)
@@ -152,11 +159,9 @@
             ## else
             (ex.throw Unknown-Kind-Of-JS-Object (Object::toString [] (:! Object js-object))))))
 
-(exception: #export Cannot-Evaluate)
-
 (def: #export (eval code)
   (-> Expression (Meta Top))
-  (function [compiler]
+  (function (_ compiler)
     (case (|> compiler
               (get@ #.host)
               (:! //.Host)
-- 
cgit v1.2.3