1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00

fix error handling when reading debugger args

* module/system/vm/debug.scm (debugger-repl): Errors reading debugger
  args no longer drop us out of the debugger.
This commit is contained in:
Andy Wingo 2010-06-10 13:44:37 +02:00
parent c7317beca6
commit 222a2b19a1

View file

@ -397,11 +397,16 @@ With an argument, select a frame by index, then show it."
(catch 'quit
(lambda ()
(let loop ()
(let ((args (save-module-excursion
(let ((args (call-with-error-handling
(lambda ()
(set-current-module commands)
(read-args prompt)))))
(apply handle args)
(save-module-excursion
(lambda ()
(set-current-module commands)
(read-args prompt))))
#:on-error 'pass)))
;; args will be unspecified if there was a read error.
(if (not (unspecified? args))
(apply handle args))
(loop))))
(lambda (k . args)
(apply values args))))))