(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))))