From 29228f5c601d8d5d42aa5352566a609bf4259d11 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 4 Oct 2017 22:02:41 -0400
Subject: - WIP: JVM host procedure analysis.

---
 new-luxc/source/luxc/analyser/procedure.lux | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'new-luxc/source/luxc/analyser/procedure.lux')

diff --git a/new-luxc/source/luxc/analyser/procedure.lux b/new-luxc/source/luxc/analyser/procedure.lux
index 06ea7c324..064a28e9b 100644
--- a/new-luxc/source/luxc/analyser/procedure.lux
+++ b/new-luxc/source/luxc/analyser/procedure.lux
@@ -3,15 +3,21 @@
   (lux (control [monad #+ do])
        (data [text]
              text/format
-             (coll ["D" dict])
+             (coll ["d" dict])
              [maybe]))
   (luxc ["&" base]
         (lang ["la" analysis #+ Analysis]))
-  (. ["&&;" common]))
+  (. ["./;" common]
+     ["./;" host]))
+
+(def: procedures
+  ./common;Bundle
+  (|> ./common;procedures
+      (d;merge ./host;procedures)))
 
 (def: #export (analyse-procedure analyse proc-name proc-args)
   (-> &;Analyser Text (List Code) (Lux Analysis))
   (default (&;fail (format "Unknown procedure: " (%t proc-name)))
-    (do maybe;Monad<Maybe>
-      [proc (D;get proc-name &&common;procedures)]
-      (wrap (proc analyse proc-args)))))
+           (do maybe;Monad<Maybe>
+             [proc (d;get proc-name procedures)]
+             (wrap (proc analyse proc-args)))))
-- 
cgit v1.2.3