Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix corner case with multi-line comments in non-native read (issue #623)

Browse source
This commit is contained in:
Alex Shinn 2020-03-30 01:14:27 +09:00
parent 72ea1258e6
commit 0a83939866
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/srfi/38.scm
View file

@ -171,6 +171,9 @@
(read-char in) (read-char in)
(read in) (read in)
(skip-whitespace-and-sexp-comments in read)) (skip-whitespace-and-sexp-comments in read))
((eqv? #\| (peek-char in))
(skip-comment in 0)
(skip-whitespace-and-sexp-comments in read))
(else #f))) (else #f)))
(else (else
#t))) #t)))