match-symbol   scheme


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

Implementation

(define match-symbol
  (lambda (e em)
    (if (not (symbol? em)) MATCH-FAILED
        (if (string=? (symbol->string e) (symbol->string em))
            MATCH-TRUE ;; e
            MATCH-FAILED))))


Back to Index