Fix typo in previous change.
authorChris Hanson <org/chris-hanson/cph>
Fri, 3 Oct 1997 06:00:26 +0000 (06:00 +0000)
committerChris Hanson <org/chris-hanson/cph>
Fri, 3 Oct 1997 06:00:26 +0000 (06:00 +0000)
v7/src/edwin/schmod.scm

index 55bb39903dde7cc236ad640ad052d3e2c623e0ed..a4a8273671320bf92b7c88ffe892a1c09622fca7 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: schmod.scm,v 1.39 1997/10/02 04:49:58 cph Exp $
+;;;    $Id: schmod.scm,v 1.40 1997/10/03 06:00:26 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -314,7 +314,8 @@ Otherwise, it is shown in the echo area."
                        (cond ((pair? argl)
                               (insert-char #\space point)
                               (insert-string (symbol->string (car argl))
-                                             point))
+                                             point)
+                              (loop (cdr argl)))
                              ((symbol? argl)
                               (insert-string " . " point)
                               (insert-string (symbol->string argl) point)))))