diff options
author | Eduardo Julian | 2018-07-14 03:23:38 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-14 03:23:38 -0400 |
commit | 1137f61adeb416d89436a6849a07f28c8f329fc1 (patch) | |
tree | fd2eb9c78b2df7116fcb3620e04f6d0eb26410e3 /new-luxc/source/luxc/lang/translation/r | |
parent | 0c0472862f5c1e543e6c5614a4cd112ac7d4cc13 (diff) |
Switched to using new bit syntax in new-luxc.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/r')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux index cf0b87d78..3ea37ae85 100644 --- a/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux @@ -64,19 +64,19 @@ (def: #export none Expression - (variant +0 false unit)) + (variant +0 #0 unit)) (def: #export some (-> Expression Expression) - (variant +1 true)) + (variant +1 #1)) (def: #export left (-> Expression Expression) - (variant +0 false)) + (variant +0 #0)) (def: #export right (-> Expression Expression) - (variant +1 true)) + (variant +1 #1)) (type: Runtime Expression) @@ -690,7 +690,7 @@ (text-clip (inc (@@ startF)) (inc (@@ subjectL)) (@@ subject)))) - (list ["fixed" (r.bool true)]) + (list ["fixed" (r.bool #1)]) (r.global "regexpr")) (r.nth (r.int 1)))) (r.if (|> (@@ idx) (r.= (r.int -1))) @@ -771,8 +771,8 @@ (r.if (|> (@@ atom) (r.nth atom//field) (r.= (@@ old))) ($_ r.then (r.set-nth! atom//field (@@ new) atom) - (r.bool true)) - (r.bool false)))) + (r.bool #1)) + (r.bool #0)))) (def: runtime//atom Runtime |