fix typo in stx-datum-equal? (from last commit)

This commit is contained in:
Stephen Chang 2017-03-31 16:00:03 -04:00
parent 28f6d782ec
commit d6012a7472

View File

@ -36,7 +36,7 @@
(and paren-prop (char=? #\{ paren-prop)))
(define (stx-datum-equal? x y [eq equal?])
(eq (datum->stx x) (datum->stx y)))
(eq (stx->datum x) (stx->datum y)))
(define (stx-member v stx [eq free-id=?])
(member v (stx->list stx) eq))