diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-18 12:51:43 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-18 12:51:43 +0200 |
commit | 8942e7a1d72ab6f6337f093a1653f57b6b6642ad (patch) | |
tree | 7d3e3ddf01b904ede37742aef3fb8d48d0ff34b9 | |
parent | fede5c8977814cff20f87223e3eaffead6469c5b (diff) | |
download | guile-8942e7a1d72ab6f6337f093a1653f57b6b6642ad.tar.gz |
reorder hooks in boot-9
* module/ice-9/boot-9.scm: Reorder hooks.
-rw-r--r-- | module/ice-9/boot-9.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index e7c844107..2f013c846 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2674,8 +2674,6 @@ module '(ice-9 q) '(make-q q-length))}." ;;; {Running Repls} ;;; -(define abort-hook (make-hook)) - ;; Programs can call `batch-mode?' to see if they are running as part of a ;; script or if they are running interactively. REPL implementations ensure that ;; `batch-mode?' returns #f during their extent. @@ -2713,11 +2711,6 @@ module '(ice-9 q) '(make-q q-length))}." narrowing))) (set! stack-saved? #t)))) -(define before-error-hook (make-hook)) -(define after-error-hook (make-hook)) -(define before-backtrace-hook (make-hook)) -(define after-backtrace-hook (make-hook)) - (define has-shown-debugger-hint? #f) (define (handle-system-error key . args) @@ -2749,6 +2742,12 @@ module '(ice-9 q) '(make-q q-length))}." (define (gc-run-time) (cdr (assq 'gc-time-taken (gc-stats)))) +(define abort-hook (make-hook)) +(define before-error-hook (make-hook)) +(define after-error-hook (make-hook)) +(define before-backtrace-hook (make-hook)) +(define after-backtrace-hook (make-hook)) + (define before-read-hook (make-hook)) (define after-read-hook (make-hook)) (define before-eval-hook (make-hook 1)) |