aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/common-lisp
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp')
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux4
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux14
3 files changed, 10 insertions, 10 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux
index 373d23ae4..78149471d 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux
@@ -89,7 +89,7 @@
(def: (pm-catch handler)
(-> Expression Handler)
- [(_.bool true) $alt_error
+ [(_.bool #1) $alt_error
(_.progn
(list
(_.setq! $alt_error (_.format/3 _.nil (_.string "~A") (@@ $alt_error)))
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
index c88e83ed5..54b77e60d 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
@@ -124,11 +124,11 @@
(#e.Success (DoubleFloat::doubleValue [] (:coerce DoubleFloat host-object)))
(host.instance? org/armedbear/lisp/Nil host-object)
- (#e.Success false)
+ (#e.Success #0)
(host.instance? org/armedbear/lisp/Symbol host-object)
(if (is? Symbol::T (:coerce Symbol host-object))
- (#e.Success true)
+ (#e.Success #1)
(ex.throw Unknown-Kind-Of-Host-Object (:coerce Object host-object)))
(host.instance? org/armedbear/lisp/SimpleString host-object)
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