* boot-9.scm (scm-style-repl): call repl-report-start-timing if

read gets EOF.
* (exit): alias for quit.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 9b2d8b6..a4cd4f1 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+Sun Mar  2 19:47:14 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * boot-9.scm (scm-style-repl): call repl-report-start-timing if
+       read gets EOF.
+       * (exit): alias for quit.
+
 Sun Mar  2 05:25:11 1997  Gary Houston  <ghouston@actrix.gen.nz>
 
        * boot-9.scm (error-catching-loop thunk): use a status variable to
@@ -5,7 +11,7 @@ Sun Mar  2 05:25:11 1997  Gary Houston  <ghouston@actrix.gen.nz>
        (scm-style-repl): call -quit, passing return value from
        error-catching-repl.  Make -quit return its args.
        stand-alone-repl: comment out, since it seems unused.
-       
+
        (error-catching-loop thunk): discard trailing junk after a (quit).
 
 Sat Mar  1 15:24:39 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index f413fc9..f1eecff 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2176,6 +2176,8 @@
 (define (quit . args)
   (apply throw 'quit args))
 
+(define exit quit)
+
 ;;(define has-shown-backtrace-hint? #f) Defined by scm_init_backtrace ()
 
 ;; Replaced by C code:
@@ -2236,6 +2238,7 @@
                      (run-hooks after-read-hook)
                      (if (eof-object? val)
                          (begin
+                           (repl-report-start-timing)
                            (if scm-repl-verbose
                                (begin
                                  (newline)