From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 24 May 2010 01:02:35 +0000 (+0000)
Subject: Fix parsing of multiline comments from ports without line numbers.
X-Git-Tag: 20100708-Gtk~36^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32ae88b8f02591daca5246fbe538903dc818da49;p=mit-scheme.git

Fix parsing of multiline comments from ports without line numbers.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 7ca6855d3..cb34fad2e 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -338,7 +338,9 @@ USA.
 
   ;; Start the machine.
   ;; If we're past the second line, just discard.
-  (if (and (< (current-line port db) 2)
+  (if (and (let ((line (current-line port db)))
+	     (and line
+		  (< line 2)))
 	   (db-enable-file-attributes-parsing db))
       (scan)
       (discard 0 continue-parsing)))