diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/php')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/php/eval.jvm.lux | 4 | ||||
-rw-r--r-- | new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux index 3768bb5c7..3bfd5578a 100644 --- a/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/php/eval.jvm.lux @@ -97,10 +97,10 @@ (def: (lux-object host-object) (-> Object (Error Any)) (cond (host.instance? php/runtime/memory/FalseMemory host-object) - (ex.return false) + (ex.return #0) (host.instance? php/runtime/memory/TrueMemory host-object) - (ex.return true) + (ex.return #1) (host.instance? php/runtime/memory/LongMemory host-object) (ex.return (LongMemory::toLong [] (:coerce LongMemory host-object))) diff --git a/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux index 045f8ceb7..7feb0033c 100644 --- a/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux @@ -36,19 +36,19 @@ (def: #export none Computation - (variant +0 false unit)) + (variant +0 #0 unit)) (def: #export some (-> Expression Computation) - (variant +1 true)) + (variant +1 #1)) (def: #export left (-> Expression Computation) - (variant +0 false)) + (variant +0 #0)) (def: #export right (-> Expression Computation) - (variant +1 true)) + (variant +1 #1)) (type: Runtime Statement) @@ -306,8 +306,8 @@ ## (_.if! (_.= old (_.nth atom//field atom)) ## ($_ _.then! ## (_.set-nth! atom//field new atom) -## (_.return! (_.bool true))) -## (_.return! (_.bool false))))) +## (_.return! (_.bool #1))) +## (_.return! (_.bool #0))))) ## (def: runtime//atom ## Runtime |