match-check-variable   scheme


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

Implementation

(define match-check-variable
  (lambda (e var)
    (if (and (string=? (cadr var) "")
             (string=? (cadddr var) ""))
        MATCH-TRUE
        (if (match-check-variable-predicates e var)
            (if (string=? (cadr var) "") 
                MATCH-TRUE
                (vector (cadr var) e))
            MATCH-FAILED))))


Back to Index

Similar Entries