pat10   scheme


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

Implementation

(define pat10 (match '(lst??custom-match)))
(println 'pat10a (pat10 '("x" "y" "y" "x" "x"))) ;; success!
(println 'pat10a (pat10 '("x" "y" "aaa" "x" "x"))) ;; fail
(println 'pat10a (pat10 '("x" "y" 'y "x" "x"))) ;; fail (symbol y not a string)


Back to Index