match-pair   scheme


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

Implementation

(define match-pair
  (lambda (e em)
    (if (not (pair? em)) 
        MATCH-FAILED
        (list (match-expr (car e) (car em))
              (match-expr (cdr e) (cdr em))))))


Back to Index