Cannot run picture language

[Lingyu Zhu]

Hi, I was attempting setting up picture language.
I build a git tip version and applied the patch to
src/6001/pic-read.scm mentioned in [1]. I downloaded the source files
from [2] and modified some file paths according to my settings.
Loading psgo.scm seems no problem because three empty windows pop up.
But (paint g1 founder) fails. Debugger displays following message:

>S0  (integer->flonum 65536/255 2)
 S1  (exact->inexact (&/ n-bins (&- max-value min-value)))
 S2  (linear-binner 0 (-1+ n-levels) 65536)
 S3  (allocate-grays window)
 S4  (n-gray-map window)
 S5  (if (and image-cached? true-min-max?) (picture-image pic) (build-image ...
    R0  (picture-display window *the-screen* 0 256)
    R1  (begin (painter (screen-frame)) (picture-display window *the-screen ...
    R2  (begin (set-painter-resolution! 128) (painter (screen-frame)) (pict ...
    R3  (begin (if (not (graphics-device? window)) (error "bad window" wind ...
    R4  (paint g1 fovnder)
 S6  ;unknown compiled code

[1] https://www.mail-archive.com/mit-scheme-devel@gnu.org/msg01527.html
[2] https://mitpress.mit.edu/sites/default/files/sicp/psets/ps4hnd/readme.html