;;@ignore ;; (? <name> [optional: predicate]) (define (predicate-var? datum) (and (list? datum) (> (length datum) 1) (eqv? (first datum) '?)))