From bfbdee9f79605c6879a1d3d4cf4b6ca832d09ac0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 21 Feb 2017 11:21:06 -0800 Subject: [PATCH] stx-flatten --- beautiful-racket-demo/basic-demo-2/expander.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/beautiful-racket-demo/basic-demo-2/expander.rkt b/beautiful-racket-demo/basic-demo-2/expander.rkt index d8d53b3..352da62 100644 --- a/beautiful-racket-demo/basic-demo-2/expander.rkt +++ b/beautiful-racket-demo/basic-demo-2/expander.rkt @@ -19,7 +19,7 @@ (require racket/list) (define (find-unique-var-ids line-stxs) (remove-duplicates - (for/list ([stx (in-list (syntax-flatten line-stxs))] + (for/list ([stx (in-list (stx-flatten line-stxs))] #:when (syntax-property stx 'b-id)) stx) #:key syntax->datum)))