summaryrefslogtreecommitdiff
path: root/module/ice-9/debugging/load-hooks.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/debugging/load-hooks.scm')
-rw-r--r--module/ice-9/debugging/load-hooks.scm33
1 files changed, 0 insertions, 33 deletions
diff --git a/module/ice-9/debugging/load-hooks.scm b/module/ice-9/debugging/load-hooks.scm
deleted file mode 100644
index fb869ed23..000000000
--- a/module/ice-9/debugging/load-hooks.scm
+++ /dev/null
@@ -1,33 +0,0 @@
-
-(define-module (ice-9 debugging load-hooks)
- #:export (before-load-hook
- after-load-hook
- install-load-hooks
- uninstall-load-hooks))
-
-;; real-primitive-load: holds the real (C-implemented) definition of
-;; primitive-load, when the load hooks are installed.
-(define real-primitive-load #f)
-
-;; The load hooks themselves. These are called with one argument, the
-;; name of the file concerned.
-(define before-load-hook (make-hook 1))
-(define after-load-hook (make-hook 1))
-
-;; primitive-load-with-hooks: our new definition for primitive-load.
-(define (primitive-load-with-hooks filename)
- (run-hook before-load-hook filename)
- (real-primitive-load filename)
- (run-hook after-load-hook filename))
-
-(define (install-load-hooks)
- (if real-primitive-load
- (error "load hooks are already installed"))
- (set! real-primitive-load primitive-load)
- (set! primitive-load primitive-load-with-hooks))
-
-(define (uninstall-load-hooks)
- (or real-primitive-load
- (error "load hooks are not installed"))
- (set! primitive-load real-primitive-load)
- (set! real-primitive-load #f))