From 32ae88b8f02591daca5246fbe538903dc818da49 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 24 May 2010 01:02:35 +0000 Subject: [PATCH] Fix parsing of multiline comments from ports without line numbers. --- src/runtime/parse.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.25.1