mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00
Code Activity

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

Browse source 
read gets EOF.
* (exit): alias for quit.
This commit is contained in:
Gary Houston 1997-03-02 19:53:32 +00:00
parent 876c87ce4e
commit 7950df7c45
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/ChangeLog
View file

@ -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> 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 * 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 (scm-style-repl): call -quit, passing return value from
error-catching-repl. Make -quit return its args. error-catching-repl. Make -quit return its args.
stand-alone-repl: comment out, since it seems unused. stand-alone-repl: comment out, since it seems unused.
(error-catching-loop thunk): discard trailing junk after a (quit). (error-catching-loop thunk): discard trailing junk after a (quit).
Sat Mar 1 15:24:39 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Sat Mar 1 15:24:39 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>

3
ice-9/boot-9.scm
View file

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