Fixed references to unbound variable.
authorChris Hanson <org/chris-hanson/cph>
Mon, 19 Jun 2006 18:03:24 +0000 (18:03 +0000)
committerChris Hanson <org/chris-hanson/cph>
Mon, 19 Jun 2006 18:03:24 +0000 (18:03 +0000)
v7/src/edwin/paredit.scm

index ace2075413d6a362fa01ec5d86d57870236f3331..99ebe58878262e20ad33f8210d828dffa66b7f64 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: paredit.scm,v 1.2 2006/06/19 18:02:55 cph Exp $
+$Id: paredit.scm,v 1.3 2006/06/19 18:03:24 cph Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -632,7 +632,7 @@ With a numerical prefix argument N, kill N S-expressions backward in
         ((negative? argument)
          (save-excursion
           (lambda ()
-            (let loop ((n n))
+            (let loop ((n argument))
               (cond ((not (zero? n))
                      (modify-current-point! backward-one-sexp)
                      (lisp-indent-line #f)