Import Upstream version 2c7upstream/2c7

1 files changed, 4 insertions, 2 deletions

diff --git a/debug.scm b/debug.scm
index 08406a9..58f6b03 100644
--- a/debug.scm
+++ b/debug.scm
@@ -19,12 +19,12 @@
 
 (require 'trace)
 (require 'break)
+(require 'line-i/o)
 
 (define (for-each-top-level-definition-in-file file proc)
   (call-with-input-file
       file
-    (lambda
-	(port)
+    (lambda (port)
       (letrec
 	  ((walk
 	    (lambda (exp)
@@ -45,6 +45,8 @@
 		  ((defmacro define-syntax) "should do something clever here")
 		  ((define)
 		   (proc exp))))))))
+	(if (eqv? #\# (peek-char port))
+	    (read-line port))		;remove `magic-number'
 	(do ((form (read port) (read port)))
 	    ((eof-object? form))
 	  (walk form))))))