aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/variable.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/variable.lux')
-rw-r--r--new-luxc/source/luxc/lang/variable.lux18
1 files changed, 9 insertions, 9 deletions
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)))))