diff options
| author | Eduardo Julian | 2018-07-14 03:23:38 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-14 03:23:38 -0400 |
| commit | 1137f61adeb416d89436a6849a07f28c8f329fc1 (patch) | |
| tree | fd2eb9c78b2df7116fcb3620e04f6d0eb26410e3 /new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux | |
| parent | 0c0472862f5c1e543e6c5614a4cd112ac7d4cc13 (diff) | |
Switched to using new bit syntax in new-luxc.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |