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/host/common-lisp.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/common-lisp.lux')

diff --git a/new-luxc/source/luxc/lang/host/common-lisp.lux b/new-luxc/source/luxc/lang/host/common-lisp.lux
index fb6a933df..2acc52700 100644
--- a/new-luxc/source/luxc/lang/host/common-lisp.lux
+++ b/new-luxc/source/luxc/lang/host/common-lisp.lux
@@ -54,8 +54,8 @@
 
   (def: #export bool
     (-> Bit Expression)
-    (|>> (case> true (:abstraction "t")
-                false ..nil)))
+    (|>> (case> #0 ..nil
+                #1 (:abstraction "t"))))
 
   (def: #export int
     (-> Int Expression)
-- 
cgit v1.2.3