(tests mod1)
#f
3
((standard-library core))
()
()
((standard-library core))
((declare (internal-variable (address () 0 <window> #t) (object-ref (address builtins -1 <class> #t)) #f #t #f #t) (object-ref (address builtins -1 <class> #t)))
(general-variable <window> #f #t (address () 0 <window> #t) #f #t #f (define-class "<window>" (object-ref (address builtins -1 <object> #t)) ((name (object-ref (address builtins -1 <string> #t)) module module #f (empty))) #t #f #f public))
(gen-proc (address () 1 draw #t))
(declare-method (address () 1 draw #t) (address () 2 () #t) (simple-proc-class (:pair (object-ref (address () 0 <window> #t)) (object-ref (address builtins -1 <nil> #t))) (object-ref (address builtins -1 none #t)) #f #f #f #f))
)
