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

* boot-9.scm (exit-hook): New hook: Is run at the very end of an

Browse source 
interactive session.
This commit is contained in:
Mikael Djurfeldt 1998-10-31 16:46:55 +00:00
parent 20a3a88153
commit 2055a1bcd3
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2936,7 +2936,9 @@
(lambda () (lambda ()
(set-readline-prompt! "") (set-readline-prompt! "")
(set-readline-read-hook! #f))))))) (set-readline-read-hook! #f)))))))
(scm-style-repl)) (let ((status (scm-style-repl)))
(run-hooks exit-hook)
status))
;; call at exit. ;; call at exit.
(lambda () (lambda ()
@ -2954,6 +2956,10 @@
`(catch #t (lambda () ,expr) `(catch #t (lambda () ,expr)
(lambda args #f))) (lambda args #f)))
;;; This hook is run at the very end of an interactive session.
;;;
(define exit-hook '())
;;; Load readline code into root module if readline primitives are available. ;;; Load readline code into root module if readline primitives are available.
;;; ;;;
;;; Ideally, we wouldn't do this until we were sure we were actually ;;; Ideally, we wouldn't do this until we were sure we were actually