add commentary for future work

This commit is contained in:
Yuichi Nishiwaki 2014-08-31 01:41:37 +09:00
parent 96a90810af
commit 2a69894bbd
1 changed files with 4 additions and 0 deletions

View File

@ -6,6 +6,7 @@
(picrin macro)
(picrin library))
;; FIXME picrin doesn't offer cond-expand for now, so we define a macro ourselves
(define-syntax define-readline
(er-macro-transformer
(lambda (form rename compare)
@ -35,6 +36,9 @@
(newline)
(exit))
(lambda ()
;; FIXME
;; non-local exception jump from inside call-with-port
;; fails with segv, though i don't know why...
(let ((port (open-input-string line)))
(let loop ((expr (read port)))
(unless (eof-object? expr)