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/lua/function.jvm.lux |  2 +-
 new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux  | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/lua/function.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/function.jvm.lux
index 02b322de6..451e9dbb4 100644
--- a/new-luxc/source/luxc/lang/translation/lua/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/function.jvm.lux
@@ -67,7 +67,7 @@
                                        (lua.if! (lua.= arityO "num_args")
                                                 (lua.block! (list selfO
                                                                   (lua.block! args-initsO+)
-                                                                  (lua.while! (lua.bool true)
+                                                                  (lua.while! (lua.bool #1)
                                                                               (lua.return! bodyO))))
                                                 (let [unpack (|>> (list) (lua.apply "table.unpack"))
                                                       recur (|>> (list) (lua.apply function-name))]
diff --git a/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux
index 6be20a0e6..7c45f0786 100644
--- a/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux
@@ -34,19 +34,19 @@
 
 (def: none
   Expression
-  (variant +0 false unit))
+  (variant +0 #0 unit))
 
 (def: some
   (-> Expression Expression)
-  (variant +1 true))
+  (variant +1 #1))
 
 (def: left
   (-> Expression Expression)
-  (variant +0 false))
+  (variant +0 #0))
 
 (def: right
   (-> Expression Expression)
-  (variant +1 true))
+  (variant +1 #1))
 
 (type: Runtime Lua)
 
@@ -189,7 +189,7 @@
   @@bit//logical-right-shift)
 
 (runtime: (text//index subject param start)
-  (lua.block! (list (lua.local! "idx" (#.Some (lua.apply "string.find" (list subject param start (lua.bool true)))))
+  (lua.block! (list (lua.local! "idx" (#.Some (lua.apply "string.find" (list subject param start (lua.bool #1)))))
                     (lua.if! (lua.= lua.nil "idx")
                              (lua.return! none)
                              (lua.return! (some "idx"))))))
@@ -255,8 +255,8 @@
   (let [atom//field (lua.string atom//field)]
     (lua.if! (lua.= old (lua.nth atom//field atom))
              (lua.block! (list (lua.set! (lua.nth atom//field atom) new)
-                               (lua.return! (lua.bool true))))
-             (lua.return! (lua.bool false)))))
+                               (lua.return! (lua.bool #1))))
+             (lua.return! (lua.bool #0)))))
 
 (def: runtime//atom
   Runtime
-- 
cgit v1.2.3