blob: 01253b0a056b86105c289c8e9f1977d124abecac (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;;; flic-td.scm -- define type descriptor for flic structs
;;;
;;; author : Sandra Loosemore
;;; date : 6 Oct 1992
;;;
(define-struct flic-td
(include type-descriptor)
(slots
(codegen-walker (type (maybe procedure)) (default '#f))
(optimize-walker (type (maybe procedure)) (default '#f))
(postoptimize-walker (type (maybe procedure)) (default '#f))
(fun-strictness-walk-walker (type (maybe procedure)) (default '#f))
(var-strictness-walk-walker (type (maybe procedure)) (default '#f))
(compute-strictness-walk-walker (type (maybe procedure)) (default '#f))
(print-strictness-walker (type (maybe procedure)) (default '#f))
(box-analysis-walker (type (maybe procedure)) (default '#f))
(copy-flic-walker (type (maybe procedure)) (default '#f))
(dump-flic-walker (type (maybe procedure)) (default '#f))
(flic-invariant?-walker (type (maybe procedure)) (default '#f))
))
|