home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / flic / flic-td.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  923 b   |  22 lines  |  [TEXT/CCL2]
  1. ;;; flic-td.scm -- define type descriptor for flic structs
  2. ;;;
  3. ;;; author :  Sandra Loosemore
  4. ;;; date   :  6 Oct 1992
  5. ;;;
  6.  
  7. (define-struct flic-td
  8.   (include type-descriptor)
  9.   (slots
  10.     (codegen-walker (type (maybe procedure)) (default '#f))
  11.     (optimize-walker (type (maybe procedure)) (default '#f))
  12.     (postoptimize-walker (type (maybe procedure)) (default '#f))
  13.     (fun-strictness-walk-walker (type (maybe procedure)) (default '#f))
  14.     (var-strictness-walk-walker (type (maybe procedure)) (default '#f))
  15.     (compute-strictness-walk-walker (type (maybe procedure)) (default '#f))
  16.     (print-strictness-walker (type (maybe procedure)) (default '#f))
  17.     (box-analysis-walker (type (maybe procedure)) (default '#f))
  18.     (copy-flic-walker (type (maybe procedure)) (default '#f))
  19.     (dump-flic-walker (type (maybe procedure)) (default '#f))
  20.     (flic-invariant?-walker (type (maybe procedure)) (default '#f))
  21.     ))
  22.