From 30720009561d8b0c66e46fe75525e675d83be5f0 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 7 Aug 2017 18:52:49 -0400 Subject: [PATCH] Remove old comments --- scheme/read.sld | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/scheme/read.sld b/scheme/read.sld index 4a2d5953..60389163 100644 --- a/scheme/read.sld +++ b/scheme/read.sld @@ -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")))