predicate-var?   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/base/pattern.xtm

Implementation

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


Back to Index