mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 23:20:38 +02:00
Code Activity

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

Browse source 
stack.
This commit is contained in:
Marius Vollmer 2002-10-04 13:09:30 +00:00
parent 61c95a4992
commit f823f7e774
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/boot-9.scm
View file

@ -2872,7 +2872,7 @@
;; Make a backup copy of the stack ;; Make a backup copy of the stack
(fluid-set! before-signal-stack (fluid-set! before-signal-stack
(fluid-ref the-last-stack)) (fluid-ref the-last-stack))
(save-stack %deliver-signals) (save-stack 1)
(scm-error 'signal (scm-error 'signal
#f #f
msg msg