This commit is contained in:
Lassi Kortela 2019-05-13 00:43:00 +03:00
parent 7f70dd8906
commit 1190f32ab4
1 changed files with 1 additions and 1 deletions

View File

@ -36,7 +36,7 @@
(read-char* (lambda (c) (not (eqv? c #\newline)))))
(define (skip-white-comm)
(cond ((read-char? #\;) (read->eol) (skip-white-comm))
((read-char* char-whitespace?) (skip-white-comm))
((read-char? char-whitespace?) (skip-white-comm))
(else #f)))
(define (read-lexeme)
(skip-white-comm)