From 8942e7a1d72ab6f6337f093a1653f57b6b6642ad Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 18 Jun 2010 12:51:43 +0200 Subject: [PATCH] reorder hooks in boot-9 * module/ice-9/boot-9.scm: Reorder hooks. --- module/ice-9/boot-9.scm | 13 ++++++------- 1 file 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)) -- 2.20.1