[CM] Bug regarding hooks

[Christos Vagias]

Hi Bil,

I'm attaching a demo program demonstrating the bug. It involves hooks,
setters, call-with-input-file, call-with-output-string. Not sure which
is the culprit.

- g++ ./main.cpp s7.o -ldl -I.
- ./a.out

As main.scm is, s7_load_file result is the output of the setter
triggered by (set! (state 'file) "foo.txt") instead of 'ok (at the end
of the file)

Thanks,
Christos Vagias
-------------- next part --------------
A non-text attachment was scrubbed...
Name: bug-hooks.zip
Type: application/zip
Size: 1142 bytes
Desc: not available
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20211230/e3fa0229/attachment.zip>