www

commit d6012a7472457f949f56cd2ccca0a292f5210d59
parent 28f6d782ecc9a22b362ccb2287599db1ea7a4d9f
Author: Stephen Chang <stchang@ccs.neu.edu>
Date:   Fri, 31 Mar 2017 16:00:03 -0400

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

Diffstat:
M
macrotypes/stx-utils.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt
@@ -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))