From 2a69894bbd79ec530c7a52e39ca74233be0046b6 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 31 Aug 2014 01:41:37 +0900
Subject: [PATCH] add commentary for future work

---
 contrib/20.repl/repl.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/contrib/20.repl/repl.scm b/contrib/20.repl/repl.scm
index d2064c8f..4998fbe4 100644
--- a/contrib/20.repl/repl.scm
+++ b/contrib/20.repl/repl.scm
@@ -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)