From 1137f61adeb416d89436a6849a07f28c8f329fc1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 14 Jul 2018 03:23:38 -0400
Subject: Switched to using new bit syntax in new-luxc.

---
 new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/r')

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
-- 
cgit v1.2.3