(top-repl): Use "1" instead of "%deliver-signals" to limit the signal

stack.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 81b3ee3..6e6f1e1 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2872,7 +2872,7 @@
                                    ;; Make a backup copy of the stack
                                    (fluid-set! before-signal-stack
                                                (fluid-ref the-last-stack))
-                                   (save-stack %deliver-signals)
+                                   (save-stack 1)
                                    (scm-error 'signal
                                               #f
                                               msg