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:
parent
c7317beca6
commit
222a2b19a1
1 changed files with 9 additions and 4 deletions
|
@ -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))))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue