From d6012a7472457f949f56cd2ccca0a292f5210d59 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 31 Mar 2017 16:00:03 -0400 Subject: [PATCH] fix typo in stx-datum-equal? (from last commit) --- macrotypes/stx-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt index 0589253..42f97ca 100644 --- 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))