Stefan Israelsson Tampe writes:
> Executing this code on guile-3.0.0:
>
> (dynamic-wind
> (lambda () (pk 'enter))
> (lambda () (catch #t
> (lambda () (throw 1))
> (lambda x (pk 'catch x) (apply throw x
> (lambda () (pk 'leave)))
>
> Leads to the output:
>
> sche
Executing this code on guile-3.0.0:
(dynamic-wind
(lambda () (pk 'enter))
(lambda () (catch #t
(lambda () (throw 1))
(lambda x (pk 'catch x) (apply throw x
(lambda () (pk 'leave)))
Leads to the output:
scheme@(guile-user)> (load "bug.scm")
;;; (enter)
;;; (catc