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/common-lisp/case.jvm.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux')

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