Permalink
Browse files

true => !0, false => !1

  • Loading branch information...
1 parent 89f55cb commit c404d88def7f6b48ec4fe1c360eb0775a3c72d1b @mishoo committed Dec 19, 2010
Showing with 6 additions and 1 deletion.
  1. +6 −1 src/squeeze.lisp
View
@@ -309,4 +309,9 @@
(:unary-prefix (op ex)
(when (eq op :!)
- (best-of expr (negate ex))))))))
+ (best-of expr (negate ex))))
+
+ (:atom (val)
+ (case val
+ (:true '(:unary-prefix :! (:num 0)))
+ (:false '(:unary-prefix :! (:num 1)))))))))

0 comments on commit c404d88

Please sign in to comment.