aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host/jvm.lux
diff options
context:
space:
mode:
authorEduardo Julian2018-07-14 03:23:38 -0400
committerEduardo Julian2018-07-14 03:23:38 -0400
commit1137f61adeb416d89436a6849a07f28c8f329fc1 (patch)
treefd2eb9c78b2df7116fcb3620e04f6d0eb26410e3 /new-luxc/source/luxc/lang/host/jvm.lux
parent0c0472862f5c1e543e6c5614a4cd112ac7d4cc13 (diff)
Switched to using new bit syntax in new-luxc.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/host/jvm.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm.lux b/new-luxc/source/luxc/lang/host/jvm.lux
index 3c5fa3150..adb24b8c0 100644
--- a/new-luxc/source/luxc/lang/host/jvm.lux
+++ b/new-luxc/source/luxc/lang/host/jvm.lux
@@ -93,7 +93,7 @@
(` (def: (~' #export) (~ (code.local-symbol option))
(~ g!type)
(|> (~ g!none)
- (set@ (~ (code.local-tag option)) true)))))
+ (set@ (~ (code.local-tag option)) #1)))))
options)]
(wrap (list& (` (type: (~' #export) (~ g!type)
(~ (code.record (list/map (function (_ tag)
@@ -103,7 +103,7 @@
(` (def: (~' #export) (~ g!none)
(~ g!type)
(~ (code.record (list/map (function (_ tag)
- [tag (` false)])
+ [tag (` #0)])
g!tags+)))))
(` (def: (~' #export) ((~ (code.local-symbol ++)) (~ g!_left) (~ g!_right))