exit-on-eof

Exit Arc with eof (^D in Unix)

exit-on-eof1.patch

diff --git a/ac.scm b/ac.scm
index d37a67d..0d23768 100644
--- a/ac.scm
+++ b/ac.scm
@@ -1068,6 +1068,9 @@
             (tl2))
     (lambda ()
       (let ((expr (read)))
+        (if (eof-object? expr)
+             (begin (newline)
+                    (exit)))
         (if (eqv? expr ':a)
             'done
             (let ((val (arc-eval expr)))

description

$ mzscheme -m -f as.scm
Use (quit) to quit, (tl) to return here after an interrupt.
arc> ^D
$

get this hack

wget http://ycombinator.com/arc/arc3.tar
tar xf arc3.tar
cd arc3
wget -O - http://hacks.catdancer.ws/exit-on-eof1.patch | patch

license