diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-22 23:38:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-22 23:38:06 +0100 |
commit | 1ad7fef5249f409317c20d5242bc3c4c2b8d9d18 (patch) | |
tree | cbb87be04e3b08b40ed35808d71613cfffcc3ce9 /module/system/repl/repl.scm | |
parent | 0dfe0e758890379d625e08d4deffbbbd5822e99f (diff) | |
download | guile-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.scm | 2 |
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))) |