Character parser must be careful near end of file.

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index fda41feae2748af4bdbdbdec00dfa3e7f8f821fa..b695541fd6b2c87163cab368dd69f6c874e3e5ce 100644 (file)
--- 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)))))