From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Jun 1987 22:39:53 +0000 (+0000)
Subject: Character parser must be careful near end of file.
X-Git-Tag: 20090517-FFI~13365
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a43b38fe12b64b23d1fafd55ea1c69223c7057d2;p=mit-scheme.git

Character parser must be careful near end of file.
---

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index fda41feae..b695541fd 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 13.42 1987/03/17 18:51:44 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 13.43 1987/06/16 22:39:53 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -395,7 +395,9 @@
 	       (char->string (read-char)))
 	      (else
 	       (let ((string (read-string delimiters)))
-		 (if (char=? #\- (peek-char))
+		 (if (let ((char (*parser-peek-char*)))
+		       (and char
+			    (char=? #\- char)))
 		     (begin (discard-char)
 			    (string-append string "-" (loop)))
 		     string)))))