From bf47bd7b3d4f70bc3a481761b8e9ff074313fb44 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 3 May 2017 18:17:00 -0400
Subject: - WIP: Implemented more functionality. - Lots of refactorings.

---
 new-luxc/source/luxc/compiler/expr.jvm.lux | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'new-luxc/source/luxc/compiler/expr.jvm.lux')

diff --git a/new-luxc/source/luxc/compiler/expr.jvm.lux b/new-luxc/source/luxc/compiler/expr.jvm.lux
index 6655abd5f..138d0d540 100644
--- a/new-luxc/source/luxc/compiler/expr.jvm.lux
+++ b/new-luxc/source/luxc/compiler/expr.jvm.lux
@@ -2,26 +2,29 @@
   lux
   (lux (control monad)
        (data text/format)
-       [macro #+ Monad<Lux>])
+       [macro #+ Monad<Lux> "Lux/" Monad<Lux>])
   (luxc ["&" base]
-        ["&;" module]
-        ["&;" env]
+        lang
         ["&;" analyser]
-        ["&;" synthesizer #+ Synthesis]))
+        ["&;" synthesizer]))
 
 (type: #export JVM-Bytecode
   Void)
 
-(type: Compiled
+(type: #export Compiled
   JVM-Bytecode)
 
 (def: (compile-synthesis synthesis)
   (-> Synthesis Compiled)
   (undefined))
 
+(def: (eval type code)
+  Eval
+  (undefined))
+
 (def: #export (compile input)
   (-> AST (Lux Compiled))
   (|> input
-      &analyser;analyse
+      (&analyser;analyse eval)
       (Lux/map &synthesizer;synthesize)
       (Lux/map compile-synthesis)))
-- 
cgit v1.2.3