aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/r
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/translation/r
parent0c0472862f5c1e543e6c5614a4cd112ac7d4cc13 (diff)
Switched to using new bit syntax in new-luxc.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux14
-rw-r--r--new-luxc/source/luxc/lang/translation/ruby/function.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/ruby/runtime.jvm.lux12
3 files changed, 14 insertions, 14 deletions
diff --git a/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux
index cf0b87d78..3ea37ae85 100644
--- a/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux
@@ -64,19 +64,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)
@@ -690,7 +690,7 @@
(text-clip (inc (@@ startF))
(inc (@@ subjectL))
(@@ subject))))
- (list ["fixed" (r.bool true)])
+ (list ["fixed" (r.bool #1)])
(r.global "regexpr"))
(r.nth (r.int 1))))
(r.if (|> (@@ idx) (r.= (r.int -1)))
@@ -771,8 +771,8 @@
(r.if (|> (@@ atom) (r.nth atom//field) (r.= (@@ old)))
($_ r.then
(r.set-nth! atom//field (@@ new) atom)
- (r.bool true))
- (r.bool false))))
+ (r.bool #1))
+ (r.bool #0))))
(def: runtime//atom
Runtime
diff --git a/new-luxc/source/luxc/lang/translation/ruby/function.jvm.lux b/new-luxc/source/luxc/lang/translation/ruby/function.jvm.lux
index aecabc914..64c2bba2e 100644
--- a/new-luxc/source/luxc/lang/translation/ruby/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/ruby/function.jvm.lux
@@ -62,7 +62,7 @@
(ruby.if! (ruby.= arityO "num_args")
(ruby.block! (list selfO
args-initsO+
- (ruby.while! (ruby.bool true)
+ (ruby.while! (ruby.bool #1)
(ruby.return! bodyO))))
(ruby.return! (let [recur (function (_ args) (ruby.call (list args) function-name))]
(ruby.? (ruby.> arityO "num_args")
diff --git a/new-luxc/source/luxc/lang/translation/ruby/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/ruby/runtime.jvm.lux
index 9d0d0f890..4ab5417a1 100644
--- a/new-luxc/source/luxc/lang/translation/ruby/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/ruby/runtime.jvm.lux
@@ -34,19 +34,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 Ruby)
@@ -228,8 +228,8 @@
(let [atom//field (ruby.string atom//field)]
(ruby.if! (ruby.= old (ruby.nth atom//field atom))
(ruby.block! (list (ruby.set-nth! atom//field new atom)
- (ruby.return! (ruby.bool true))))
- (ruby.return! (ruby.bool false)))))
+ (ruby.return! (ruby.bool #1))))
+ (ruby.return! (ruby.bool #0)))))
(def: runtime//atom
Runtime