;; @ignore ;; True if c{obj} is a procedure that dispatches ;; based on argument patterns, false otherwise. (define (pattern-procedure? obj) (note:get obj 'is-pattern-procedure #f))