diff options
author | Andy Wingo <wingo@pobox.com> | 2010-09-24 18:24:41 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-09-24 18:24:41 +0200 |
commit | d2c7e7de405682c043c8e4f2d7285824aafca71f (patch) | |
tree | 2c6bc22745508ac218aca29b6abcb6c60da40fb8 /module/ice-9/debugging/load-hooks.scm | |
parent | 3b494f511ad6966acfa5bad751e27b152254fad5 (diff) | |
download | guile-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.scm | 33 |
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)) |