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

Remove double read-char in scribble parser.

Browse source 
Closes #1018.
This commit is contained in:
Alex Shinn 2025-03-22 11:20:04 +09:00
parent 72ec53ca26
commit ed37af2dfd
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/scribble-test.sld
View file

@ -15,6 +15,8 @@
(test-scribble '((foo "blah \"blah\" (`blah'?)")) "\\foo{blah \"blah\" (`blah'?)}") (test-scribble '((foo "blah \"blah\" (`blah'?)")) "\\foo{blah \"blah\" (`blah'?)}")
(test-scribble '((foo 1 2 "3 4")) "\\foo[1 2]{3 4}") (test-scribble '((foo 1 2 "3 4")) "\\foo[1 2]{3 4}")
(test-scribble '((foo 1 2 3 4)) "\\foo[1 2 3 4]") (test-scribble '((foo 1 2 3 4)) "\\foo[1 2 3 4]")
(test-scribble '(123.456) "\\123.456")
(test-scribble '((123.456)) "\\(123.456 )")
(test-scribble '((foo width: 2 "blah blah")) "\\foo[width: 2]{blah blah}") (test-scribble '((foo width: 2 "blah blah")) "\\foo[width: 2]{blah blah}")
(test-scribble '((foo "blah blah" "\n" " yada yada")) "\\foo{blah blah (test-scribble '((foo "blah blah" "\n" " yada yada")) "\\foo{blah blah
yada yada}") yada yada}")

2
lib/chibi/scribble.scm
View file

@ -67,7 +67,7 @@
((eqv? #\. ch) ((eqv? #\. ch)
(read-char in) (read-char in)
(if (= base 10) (if (= base 10)
(begin (read-char in) (read-float-tail in (inexact acc))) (read-float-tail in (inexact acc))
(error "non-base-10 floating point"))) (error "non-base-10 floating point")))
(else (error "invalid numeric syntax")))))) (else (error "invalid numeric syntax"))))))