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

Cut-over to new reader

Browse source
This commit is contained in:
Justin Ethier 2017-08-17 13:54:53 +00:00
parent 4c5191f2b8
commit b997d10f43
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/read.sld
View file

@ -703,7 +703,7 @@
(let ((fp (if (null? args)
(current-input-port)
(car args))))
(if (reading-from-file? fp)
(if #t ;(reading-from-file? fp)
(call-parse2 fp)
(parse fp '() '() #f #f 0 (reg-port fp))))))