From 4433c9bcd6c6cac44c018aad2e21a5b4d7cc4896 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 29 Nov 2017 22:49:56 -0400
Subject: - Adapted main codebase to the latest syntatic changes.

---
 new-luxc/source/luxc/lang/eval.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/eval.lux b/new-luxc/source/luxc/lang/eval.lux
index e691ec7a1..62d6a438b 100644
--- a/new-luxc/source/luxc/lang/eval.lux
+++ b/new-luxc/source/luxc/lang/eval.lux
@@ -1,18 +1,18 @@
-(;module:
+(.module:
   lux
   (lux (control [monad #+ do])
        [macro])
   (luxc ["&" lang]
-        (lang (analysis [";A" expression])
-              (synthesis [";S" expression])
-              (translation [";T" expression]
-                           [";T" eval]))))
+        (lang (analysis [".A" expression])
+              (synthesis [".S" expression])
+              (translation [".T" expression]
+                           [".T" eval]))))
 
 (def: #export (eval type exprC)
-  &;Eval
-  (do macro;Monad<Meta>
-    [exprA (&;with-type type
-             (expressionA;analyser eval exprC))
-     #let [exprS (expressionS;synthesize exprA)]
-     exprI (expressionT;translate exprS)]
-    (evalT;eval exprI)))
+  &.Eval
+  (do macro.Monad<Meta>
+    [exprA (&.with-type type
+             (expressionA.analyser eval exprC))
+     #let [exprS (expressionS.synthesize exprA)]
+     exprI (expressionT.translate exprS)]
+    (evalT.eval exprI)))
-- 
cgit v1.3.1