summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-22 23:38:06 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-22 23:38:06 +0100
commit1ad7fef5249f409317c20d5242bc3c4c2b8d9d18 (patch)
treecbb87be04e3b08b40ed35808d71613cfffcc3ce9 /module/system/repl/repl.scm
parent0dfe0e758890379d625e08d4deffbbbd5822e99f (diff)
downloadguile-1ad7fef5249f409317c20d5242bc3c4c2b8d9d18.tar.gz
implement a silly debugger
* module/system/vm/debug.scm: Implement the skeleton of a debugger. Not very useful yet. * module/system/repl/repl.scm (call-with-backtrace): Have the pre-unwind hook drop the user into the debugger. Hopefully we can have something better within a couple weeks.
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r--module/system/repl/repl.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index a3496f3b8..8c54345ca 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -87,7 +87,7 @@
(catch #t
(lambda () (%start-stack #t thunk))
default-catch-handler
- default-pre-unwind-handler))
+ debug-pre-unwind-handler))
(define-macro (with-backtrace form)
`(call-with-backtrace (lambda () ,form)))