no exit

2014-07-28 13:22:24 +09:00 · 2014-07-28 13:22:24 +09:00 · dd52dee01c
parent 786cf9d894
commit dd52dee01c
1 changed files with 1 additions and 3 deletions
--- a/tools/main.scm
+++ b/tools/main.scm
@ -57,9 +57,7 @@
    (display "> ")
    (let ((expr (read)))
      (if (eof-object? expr)
-          (begin
-            (newline)
-            (exit 0))
+          (newline)                     ; exit
          (begin
            (call/cc
             (lambda (leave)