From 97dd0977a6eec6301e0f76d817be5f542d6e7e6d Mon Sep 17 00:00:00 2001 From: Alex Shinn <ashinn@users.noreply.github.com> Date: Fri, 4 Jan 2013 11:11:29 +0900 Subject: [PATCH] Fixing template depth count in certain fast-tracked template patterns. Fixes issue #169. --- lib/init-7.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 660f840c..b2147437 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -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))