From 285de1ae1925c2b030bd96032498ccbaa6fc90c9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 18 Mar 2019 18:36:18 -0400
Subject: Cobbled together a simple packager.

---
 lux-js/source/program.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lux-js/source')

diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux
index 9cd93a9eb..0a723ec30 100644
--- a/lux-js/source/program.lux
+++ b/lux-js/source/program.lux
@@ -449,15 +449,16 @@
     (wrap [])))
 
 (def: (define! interpreter [module name] input)
-  (-> javax/script/ScriptEngine Name _.Expression (Error [Text Any]))
+  (-> javax/script/ScriptEngine Name _.Expression (Error [Text Any _.Statement]))
   (let [global (format (text.replace-all .module-separator ..separator module)
                        ..separator (name.normalize name)
                        "___" (%n (text/hash name)))
         @global (_.var global)]
     (do error.monad
-      [_ (execute! interpreter global (_.define @global input))
+      [#let [definition (_.define @global input)]
+       _ (execute! interpreter global definition)
        value (evaluate! interpreter global @global)]
-      (wrap [global value]))))
+      (wrap [global value definition]))))
 
 (type: Host
   (generation.Host _.Expression _.Statement))
-- 
cgit v1.2.3