From 1190f32ab41148fa2396f524c5c67fd4d1ff50f3 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Mon, 13 May 2019 00:43:00 +0300 Subject: [PATCH] Simplify --- encoding-reader-simple.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/encoding-reader-simple.scm b/encoding-reader-simple.scm index 384da36..2b2c3ac 100644 --- a/encoding-reader-simple.scm +++ b/encoding-reader-simple.scm @@ -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)