From a79927892174c3564c83a0e741e5cc0aaaeeb37c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 30 Jun 2017 18:43:07 -0400
Subject: - WIP: Added generation for common procedures.

---
 new-luxc/source/luxc/generator/expr.jvm.lux | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/new-luxc/source/luxc/generator/expr.jvm.lux b/new-luxc/source/luxc/generator/expr.jvm.lux
index 7a99ecc18..32291317f 100644
--- a/new-luxc/source/luxc/generator/expr.jvm.lux
+++ b/new-luxc/source/luxc/generator/expr.jvm.lux
@@ -10,6 +10,7 @@
                    ["&;" primitive]
                    ["&;" structure]
                    ["&;" eval]
+                   ["&;" procedure]
                    (host ["$" jvm]))))
 
 (def: #export (generate synthesis)
@@ -34,7 +35,10 @@
     
     (#ls;Tuple members)
     (&structure;generate-tuple generate members)
-    
+
+    (#ls;Procedure name args)
+    (&procedure;generate-procedure generate name args)
+
     _
     (macro;fail "Unrecognized synthesis.")))
 
-- 
cgit v1.2.3