summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-18 12:51:43 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-18 12:51:43 +0200
commit8942e7a1d72ab6f6337f093a1653f57b6b6642ad (patch)
tree7d3e3ddf01b904ede37742aef3fb8d48d0ff34b9
parentfede5c8977814cff20f87223e3eaffead6469c5b (diff)
downloadguile-8942e7a1d72ab6f6337f093a1653f57b6b6642ad.tar.gz
reorder hooks in boot-9
* module/ice-9/boot-9.scm: Reorder hooks.
-rw-r--r--module/ice-9/boot-9.scm13
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))