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/variable.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/variable.lux b/new-luxc/source/luxc/lang/variable.lux
index f766ffdcf..55f6ac877 100644
--- a/new-luxc/source/luxc/lang/variable.lux
+++ b/new-luxc/source/luxc/lang/variable.lux
@@ -1,4 +1,4 @@
-(;module:
+(.module:
   lux
   (lux (data (coll [list "list/" Functor<List>]))))
 
@@ -7,7 +7,7 @@
 
 (def: #export (captured register)
   (-> Register Variable)
-  (|> register n.inc nat-to-int (i.* -1)))
+  (|> register n/inc nat-to-int (i/* -1)))
 
 (def: #export (local register)
   (-> Register Variable)
@@ -19,29 +19,29 @@
 
 (def: #export (captured-register variable)
   (-> Variable Register)
-  (|> variable (i.* -1) int-to-nat n.dec))
+  (|> variable (i/* -1) int-to-nat n/dec))
 
 (do-template [<name> <comp>]
   [(def: #export (<name> var)
      (-> Variable Bool)
      (<comp> 0 var))]
 
-  [self?     i.=]
-  [local?    i.>]
-  [captured? i.<]
+  [self?     i/=]
+  [local?    i/>]
+  [captured? i/<]
   )
 
 (def: #export (from-ref ref)
   (-> Ref Variable)
   (case ref
-    (#;Local register)
+    (#.Local register)
     (local register)
     
-    (#;Captured register)
+    (#.Captured register)
     (captured register)))
 
 (def: #export (environment scope)
   (-> Scope (List Variable))
   (|> scope
-      (get@ [#;captured #;mappings])
+      (get@ [#.captured #.mappings])
       (list/map (function [[_ [_ ref]]] (from-ref ref)))))
-- 
cgit v1.2.3