Permalink
Browse files

Revert "Make variables ignorable"

This reverts commit a8d5e92.
  • Loading branch information...
Tomohiro Matsuyama
Tomohiro Matsuyama committed Nov 19, 2012
1 parent 99f453c commit eab446327b8c523a69e82f0a6c42f7bf58d92145
Showing with 1 addition and 4 deletions.
  1. +1 −4 src/compiler.lisp
View
@@ -27,9 +27,7 @@
for name = (variable-pattern-name pattern)
collect
(if name
- `(,rest (let ((,name ,(car vars)))
- (declare (ignorable ,name))
- ,.then))
+ `(,rest (let ((,name ,(car vars))) ,.then))
`(,rest ,.then)))))
`(%match ,(cdr vars)
,clauses
@@ -119,7 +117,6 @@
collect (if (member var vars) var))
collect `((,subpattern) (values ,@vals)))
(fail))
- (declare (ignorable ,@new-vars))
(%match ,(cdr vars)
((,rest ,.then))
(fail)))

0 comments on commit eab4463

Please sign in to comment.