(tests mod1)
#f
5
((standard-library console-io))
()
()
()
((general-variable () #f #f (address () 4 () #t) #t #t #f (define-variable (simple-proc-class (:pair (object-ref (address (tests mod1) 0 <window> #t)) (object-ref (address builtins -1 <nil> #t))) (object-ref (address builtins -1 none #t)) #f #f #f #f) #f (procedure #f (simple-proc-class (:pair (object-ref (address (tests mod1) 0 <window> #t)) (object-ref (address builtins -1 <nil> #t))) (object-ref (address builtins -1 none #t)) #f #f #f #f) #t (&&&window~1985) ((object-ref (address (tests mod1) 0 <window> #t))) ((internal-variable (address () 3 &&&window~1985 #f) (object-ref (address (tests mod1) 0 <window> #t)) #f #t #f #f)) (object-ref (address builtins -1 none #t)) (begin #f #t #f #f (object-ref (address builtins -1 none #t)) #f #f ((proc-appl #f #t #f #f (object-ref (address builtins -1 none #t)) #f #f () (object-ref (address (standard-library console-io) 0 console-display-string #t)) ((primitive-atom "window: ")) () ((object-ref (address builtins -1 <string> #t))) #f ()) (proc-appl #f #t #f #f (object-ref (address builtins -1 none #t)) #f #f () (object-ref (address (standard-library console-io) 6 console-display #t)) ((field-ref #f #t #t #f #t (var-ref (address () 3 &&&window~1985 #f)) name)) () ((object-ref (address builtins -1 <string> #t))) #f ()) (proc-appl #f #t #f #f (object-ref (address builtins -1 none #t)) #f #f () (object-ref (address (standard-library console-io) 2 console-newline #t)) () () () #f ()))) local () #f #f #f #f #f) #f))
(method (address (tests mod1) 1 draw #t) (simple-proc-class (:pair (object-ref (address (tests mod1) 0 <window> #t)) (object-ref (address builtins -1 <nil> #t))) (object-ref (address builtins -1 none #t)) #f #f #f #f) (object-ref (address () 4 () #t)) #t)
)
