;;; 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))
     ))