aboutsummaryrefslogtreecommitdiff
path: root/macros.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'macros.lisp')
-rw-r--r--macros.lisp9
1 files changed, 3 insertions, 6 deletions
diff --git a/macros.lisp b/macros.lisp
index c354a89..bd564ba 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -43,17 +43,14 @@ higher order functions:
#(1 2 3 4)
\"ffffffffff\")))
(#\y 3 #\f)"
- (let ((new-params (list))
- (calls-to-$$ 0))
+ (let ((new-params (list)))
(subst-if t (constantly nil) expr
:key (lambda (x)
(when (is-substitute-var x)
(pushnew x new-params))
(when (eql '$$ x)
- (incf calls-to-$$))))
- (if (not (zerop calls-to-$$))
- (error "$$ cannot be nested")
- `(lambda ,(reverse new-params) ,expr))))
+ (error "$$ cannot be nested"))))
+ `(lambda ,(reverse new-params) ,expr)))