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))