bug#39811: Missing dynwind exit application

2020-03-03 Thread Andy Wingo
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

bug#39811: Missing dynwind exit application

2020-02-27 Thread Stefan Israelsson Tampe
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