dynamic-wind doesn't always compile
This doesn't compile due to an unsupported $prim thunk?
:
(dynamic-wind
(lambda () (pk 'in))
(lambda () (pk 'thunk))
(lambda () (pk 'out)))
This seems to be an issue with Guile's peval giving up before optimizing away the thunk?
primitive. Hacking Guile to increase peval's recursive-effort-limit
from 100 to 150 fixes the issue.