summaryrefslogtreecommitdiff
path: root/module/ice-9/debugging/load-hooks.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-09-24 18:24:41 +0200
committerAndy Wingo <wingo@pobox.com>2010-09-24 18:24:41 +0200
commitd2c7e7de405682c043c8e4f2d7285824aafca71f (patch)
tree2c6bc22745508ac218aca29b6abcb6c60da40fb8 /module/ice-9/debugging/load-hooks.scm
parent3b494f511ad6966acfa5bad751e27b152254fad5 (diff)
downloadguile-d2c7e7de405682c043c8e4f2d7285824aafca71f.tar.gz
remove (ice-9 debugger) and (ice-9 debugging)
* module/ice-9/debugger.scm: * module/ice-9/debugger/command-loop.scm: * module/ice-9/debugger/commands.scm: * module/ice-9/debugger/state.scm: * module/ice-9/debugger/trc.scm: * module/ice-9/debugger/utils.scm: * module/ice-9/debugging/breakpoints.scm: * module/ice-9/debugging/example-fns.scm: * module/ice-9/debugging/ice-9-debugger-extensions.scm: * module/ice-9/debugging/load-hooks.scm: * module/ice-9/debugging/steps.scm: * module/ice-9/debugging/trace.scm: * module/ice-9/debugging/traps.scm: * module/ice-9/debugging/trc.scm: Remove these files, as we will favor the REPL's implementation of a debugger, and (system vm traps) and (system vm trap-state). But these old files will continue to inspire the rest of the new debugger interface.
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))