home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / ast / ast-td.scm next >
Encoding:
Text File  |  1994-09-27  |  767 b   |  22 lines  |  [TEXT/CCL2]
  1. ;;; ast-td.scm -- define ast type descriptor object
  2. ;;;
  3. ;;; author :  Sandra Loosemore
  4. ;;; date   :  6 Oct 1992
  5. ;;;
  6.  
  7.  
  8. ;;; Give the type descriptors for AST nodes extra slots to hold walker
  9. ;;; functions.
  10.  
  11. (define-struct ast-td
  12.   (include type-descriptor)
  13.   (slots
  14.     (cfn-walker (type (maybe procedure)) (default '#f))
  15.     (cfn-simple-transform-walker (type (maybe procedure)) (default '#f))
  16.     (depend-walker (type (maybe procedure)) (default '#f))
  17.     (ast-to-flic-walker (type (maybe procedure)) (default '#f))
  18.     (scope-walker (type (maybe procedure)) (default '#f))
  19.     (copy-ast-walker (type (maybe procedure)) (default '#f))
  20.     (type-walker (type (maybe procedure)) (default '#f))
  21.     (collect-pattern-vars-walker (type (maybe procedure)) (default '#f))))
  22.