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