Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 00:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Performance improvements

Browse source
This commit is contained in:
Justin Ethier 2016-10-15 18:34:46 -04:00
parent 7b6e393668
commit aa822470ce
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/read.sld
View file

@ -152,12 +152,11 @@
(in-port:set-cnum! ptbl 0) (in-port:set-cnum! ptbl 0)
(parse fp '() toks all? #f parens ptbl)) (parse fp '() toks all? #f parens ptbl))
(parse fp '() toks all? #t parens ptbl))) (parse fp '() toks all? #t parens ptbl)))
((eq? c #\newline)
(in-port:set-lnum! ptbl (+ 1 (in-port:get-lnum ptbl)))
(in-port:set-cnum! ptbl 0)
(parse/tok fp tok toks all? #f parens ptbl c))
((char-whitespace? c) ((char-whitespace? c)
(if (equal? c #\newline)
(in-port:set-lnum! ptbl
(+ 1 (in-port:get-lnum ptbl))))
(if (equal? c #\newline)
(in-port:set-cnum! ptbl 0))
(parse/tok fp tok toks all? #f parens ptbl c)) (parse/tok fp tok toks all? #f parens ptbl c))
((eq? c #\;) ((eq? c #\;)
(parse/tok fp tok toks all? #t parens ptbl c)) (parse/tok fp tok toks all? #t parens ptbl c))