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.

diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm
index be6d031..8151356 100644 (file)
--- a/module/system/vm/debug.scm
+++ b/module/system/vm/debug.scm
@@ -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))))))