predicate-segment?   scheme


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

Implementation

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


Back to Index