Simplify

2019-05-13 00:43:00 +03:00 · 2019-05-13 00:43:00 +03:00 · 1190f32ab4
parent 7f70dd8906
commit 1190f32ab4
1 changed files with 1 additions and 1 deletions
--- 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)