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

Code formatting

Browse source
This commit is contained in:
Justin Ethier 2016-10-15 18:39:49 -04:00
parent aa822470ce
commit 86e3b0fbd9
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/read.sld
View file

@ -147,8 +147,7 @@
(comment? (comment?
(if (eq? c #\newline) (if (eq? c #\newline)
(begin (begin
(in-port:set-lnum! ptbl (in-port:set-lnum! ptbl (+ 1 (in-port:get-lnum ptbl)))
(+ 1 (in-port:get-lnum ptbl)))
(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)))