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/common-lisp/runtime.jvm.lux | |
parent | 0c0472862f5c1e543e6c5614a4cd112ac7d4cc13 (diff) |
Switched to using new bit syntax in new-luxc.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux index 43c1fd2a0..fe0a620d9 100644 --- a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux @@ -37,19 +37,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) @@ -105,7 +105,7 @@ (runtime: (lux//try op) (with-vars [error] (_.handler-case - (list [(_.bool true) error + (list [(_.bool #1) error (..left (_.format/3 _.nil (_.string "~A") (@@ error)))]) (..right (_.funcall (list ..unit) (@@ op)))))) @@ -272,8 +272,8 @@ (_.if (_.eq (@@ old) (@@ temp)) (_.progn (list (_.setf! (_.svref (@@ atom) (_.int 0)) (@@ new)) - (_.bool true))) - (_.bool false))))) + (_.bool #1))) + (_.bool #0))))) (def: runtime//atom Runtime |