stx-flatten

8 years ago · bfbdee9f79
parent c3eed21f32
commit bfbdee9f79
1 changed files with 1 additions and 1 deletions
--- 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)))