;;; flic-walker.scm -- macros for defining code walkers for flic
;;;
;;; author :  Sandra Loosemore
;;; date   :  7 May 1992
;;;


;;; (define-flic-walker foo (object))
;;; creates a macro (define-foo type (object) . body)
;;; and a function (foo object) that dispatches on the type of object.

(define-syntax (define-flic-walker name args)
  (let ((accessor-name (symbol-append 'flic-td- name '-walker))
	(definer-name  (symbol-append 'define- name)))
    `(begin
       (define-walker ,name ,accessor-name)
       (define-local-syntax (,definer-name type args . body)
	 `(define-walker-method ,',name ,type ,args ,@body))
       (define (,name ,@args)
	 (call-walker ,name ,@args)))))