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
- [exprA (&;with-type type
- (expressionA;analyser eval exprC))
- #let [exprS (expressionS;synthesize exprA)]
- exprI (expressionT;translate exprS)]
- (evalT;eval exprI)))
+ &.Eval
+ (do macro.Monad
+ [exprA (&.with-type type
+ (expressionA.analyser eval exprC))
+ #let [exprS (expressionS.synthesize exprA)]
+ exprI (expressionT.translate exprS)]
+ (evalT.eval exprI)))
--
cgit v1.2.3