Fixing template depth count in certain fast-tracked template patterns.

Fixes issue #169.
This commit is contained in:
Alex Shinn 2013-01-04 11:11:29 +09:00
parent bd059d8fda
commit 97dd0977a6

View file

@ -817,7 +817,7 @@
(error "too many ...'s"))
((and (null? (cdr (cdr t))) (identifier? (car t)))
;; shortcut for (var ...)
(lp (car t) depth))
(lp (car t) ell-dim))
(else
(let* ((once (lp (car t) ell-dim))
(nest (if (and (null? (cdr ell-vars))