diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 9b2d8b65e..a4cd4f159 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,9 @@ +Sun Mar 2 19:47:14 1997 Gary Houston + + * 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 * 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 (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 diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index f413fc9ba..f1eecffd8 100644 --- 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)