ChezScheme/s/np-info.ss

5   (sealed #t)
8     (lambda (new)
9       (lambda ()
14   (sealed #t)
17 (define-record-type info-lambda
18   (nongenerative #{info-lambda bcpkdd2y9yyv643zicd4jbe3y-2})
20   (sealed #t)
24     (lambda (pargs->new)
25       (rec cons-info-lambda
26         (case-lambda
27           [(src sexpr libspec interface*) (cons-info-lambda src sexpr libspec interface* #f 0)]
28 …       [(src sexpr libspec interface* name) (cons-info-lambda src sexpr libspec interface* name 0)]
31             (map (lambda (iface) (make-direct-call-label 'dcl)) interface*)
33 …e #f 'closure (and (generate-inspector-information) (make-ctci)) '() ($np-next-lambda-seqno))])))))
38   (sealed #t)
41     (lambda (pargs->new)
42       (case-lambda
51   (sealed #t)
63     (lambda (pargs->new)
64       (lambda (src sexpr cnfv* nfv* nfv**)
77     (lambda (new)
78       (case-lambda
87   (sealed #t)
90     (lambda (new)
91       (case-lambda
100     (sealed #t)
103     (lambda (intrinsic save-ra?)
109     ; used a handful of times, just while compiling library.ss...don't bother optimizing
110     (lambda (intrinsic)
111       (fold-left (lambda (live* kill) (remq kill live*))
114     ; used a handful of times, just while compiling library.ss...don't bother optimizing
115     (lambda (intrinsic) ; return-live* - rv + live*
116       (fold-left (lambda (live* live) (if (memq live live*) live* (cons live live*)))
117         (fold-left (lambda (live* rv) (remq rv live*))
122     (lambda (intrinsic)
138   ; list could be machine-dependent but at this point it doesn't matter.
174         (lambda (x)
190   (sealed #t)
196   (sealed #t)
199     (lambda (pargs->new)
200       (lambda (conv* arg-type* result-type unboxed?)
206   (sealed #t)
212   (sealed #t)
218   (sealed #t)
224   (sealed #t)
230   (sealed #t)
233    (lambda (new)
234      (case-lambda
241   (sealed #t)
247   (sealed #t)