Simplify
This commit is contained in:
parent
7f70dd8906
commit
1190f32ab4
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue