From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:28 -0800
Subject: Import Upstream version 2c7

---
 debug.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'debug.scm')

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))))))
-- 
cgit v1.2.3