lassik
/
encoding-declaration
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplify

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
encoding-reader-simple.scm
View File

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