Permalink
Browse files

small fix

  • Loading branch information...
1 parent d53f90f commit e31dc796502fc51c07beef022b527c857e8ea5de @mishoo committed Dec 19, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/squeeze.lisp
View
2 src/squeeze.lisp
@@ -317,7 +317,7 @@
(eq (cadr p) :!))
(return (caddr ex)))
(return `(:unary-prefix :! ,ex))))
- (best-of expr (negate ex)))))
+ (best-of `(:unary-prefix :! ,ex) (negate ex)))))
(:atom (val)
(case val

0 comments on commit e31dc79

Please sign in to comment.