aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/php
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/php/eval.jvm.lux4
-rw-r--r--new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux12
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