literal-match?   scheme


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

Implementation

(define literal-match?
  (lambda (expr em)
    (and (string=? (cadddr em) "literal")
         (equal? (car em) expr))))


Back to Index

Similar Entries