;;
;; zodiac:scanner-structs@
;; $Id: scanstr.ss,v 1.1 1997/02/25 16:07:20 krentel Exp $
;;
;; Scanner's subtree of the hierarchy.
;;
;;  zodiac (origin start finish)
;;    scanned
;;       token (object type)
;;

(unit/sig  zodiac:scanner-structs^
  (import  zodiac:structures^)

  (define-struct  (scanned  struct:zodiac) ())
  (define-struct  (token  struct:scanned)  (object  type))
  )

