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

fix stack narrowing for tail-call to throw

Browse source 
* module/system/repl/debug.scm (narrow-stack->vector): Fix for the
  tail-call to `throw' case, as in `(quit)'.
This commit is contained in:
Andy Wingo 2010-08-06 17:39:44 +02:00
parent 5bc97ad5dd
commit 3d4f8e3c2d
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/repl/debug.scm
View file

@ -195,7 +195,11 @@
v)) v))
(define (narrow-stack->vector stack . args) (define (narrow-stack->vector stack . args)
(stack->vector (apply make-stack (stack-ref stack 0) args))) (let ((narrowed (apply make-stack (stack-ref stack 0) args)))
(if narrowed
(stack->vector narrowed)
#()))) ; ? Can be the case for a tail-call to `throw' tho
;; (define (debug) ;; (define (debug)
;; (run-debugger ;; (run-debugger