jpellegrini

OK, narrowing this down... It's *not* SRFI-64. It's an `include` inside a `dynamic-wind`: ```scheme (dynamic-wind (lambda () 1) (lambda () (include "x.stk")) (lambda () 2)) ``` This also crashes, with...

Even closer to the issue now: `y.stk` only has a define in it: ``` $ cat y.stk (define x 10) ``` And it crashes: ```scheme ;;; ;;; INCLUDE Y ;;;...

And the `%%include` finishes... If we modify `%include-file` in the compiler (the `keep-source` parameter was used because it was easy): ```scheme (define (%include-file name) (let ((port (open-input-file name)) (old *compiler-port*))...

One more thing: if I change `(define x 10)` to `(set! x 10)` in the included file, it works. ``` $ cat y.stk (set! x 10) ``` ```scheme (define x...

It also crashes if the `%%include` is in one of the before or after thunks: ```scheme (define x 0) (dynamic-wind (lambda () (%%include "y.stk")) (lambda () 1) (lambda () 2))...

It seems that the situation is a bit trickier than what I thought: | | goocanvas | goocanvas-2.0 | |----------------|-----------|---------------| |FreeBSD 12.2 | Y | Y | |FreeBSD 13.0 |...

> BTW, I'm porting since several days GTklos of GTK3. That's great! And in that case, I suppose the `if` in this PR would need to be updated, right?

Sorry. I had not installed stklos, just compiled. I did install, and now it does show `REG` when `b` is created. But the finalizer still doesn't run when I set...

And the funny thing is that now I see it works on the REPL, but not when tests run: ``` stklos> (require "srfi-25") "srfi-25" stklos> (define a (array (shape 0...

Seems like the example work for default options now... ```scheme stklos> (define-class () ((x :init-form 0) (y :init-form 0))) ;; stklos> #[ 7f9a958cb7e0] stklos> (make-instance ) #[ 7f9a958878d0] stklos> (describe...