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

Remove old comments

Browse source
This commit is contained in:
Justin Ethier 2017-08-07 18:52:49 -04:00
parent 64b1afa5e2
commit 3072000956
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/read.sld
View file

@ -698,7 +698,7 @@
;;;;;
;; Main lexer/parser
(define cyc-read ;; TODO: should be (read), but that is breaking on csi 4.8.0.5
(define cyc-read
(lambda args
(let ((fp (if (null? args)
(current-input-port)
@ -717,10 +717,6 @@
(loop fp (cons obj result)))))
(loop fp '())))
;; TODO: for some reason this causes trouble in chicken 4.8. WTF??
;; read -> port -> object
;(define read cyc-read)
; ;; Test code
; ;(let ((fp (open-input-file "tests/begin.scm")))
; ;(let ((fp (open-input-file "tests/strings.scm")))