File: mod1.tcb

package info (click to toggle)
theme-d 7.2.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 21,036 kB
  • sloc: lisp: 9,625; sh: 5,321; makefile: 715; ansic: 477
file content (10 lines) | stat: -rw-r--r-- 1,791 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
 
(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)
)