From 007ce104fdf9d84dda2887a747f70c67b7ab406a Mon Sep 17 00:00:00 2001 From: aragorn Date: Mon, 13 Jul 1992 15:20:17 +0000 Subject: [PATCH] Discard delimiter character after reading each line. --- v7/src/6001/pic-read.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/6001/pic-read.scm b/v7/src/6001/pic-read.scm index 64c25e334..0fdddf139 100644 --- a/v7/src/6001/pic-read.scm +++ b/v7/src/6001/pic-read.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/pic-read.scm,v 1.3 1992/07/10 21:56:55 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/pic-read.scm,v 1.4 1992/07/13 15:20:17 aragorn Exp $ Copyright (c) 1991-92 Massachusetts Institute of Technology @@ -67,6 +67,7 @@ MIT in each case. |# (let ((line (read-string delimiters port))) (if (eof-object? line) (error "EOF encountered when parsing line.")) + (read-char port) ;; ignore comments (if (and (not (string-null? line)) (char=? #\# (string-ref line 0))) -- 2.25.1