stx-flatten

pull/10/head
Matthew Butterick 8 years ago
parent c3eed21f32
commit bfbdee9f79

@ -19,7 +19,7 @@
(require racket/list) (require racket/list)
(define (find-unique-var-ids line-stxs) (define (find-unique-var-ids line-stxs)
(remove-duplicates (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)) #:when (syntax-property stx 'b-id))
stx) stx)
#:key syntax->datum))) #:key syntax->datum)))

Loading…
Cancel
Save