fix typo in stx-datum-equal? (from last commit)
This commit is contained in:
parent
28f6d782ec
commit
d6012a7472
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user