Inline definition of in-syntax.

That function is moving from `unstable/sequence` to `racket/sequence`.

Inlining it preserves backwards compatibility while removing the
dependency on unstable.
This commit is contained in:
Vincent St-Amour 2015-08-13 11:18:09 -05:00
parent 1aaf771c59
commit fe63998455

View File

@ -11,7 +11,7 @@
racket/string
syntax/modread
syntax/parse
unstable/sequence
syntax/stx
(only-in xml write-xexpr)
"../shared.rkt")
@ -370,7 +370,7 @@
(syntax-parse e
[(v ...)
(for/fold ([covered (e->n e)] [count (a->n e)])
([v (in-syntax e)])
([v (in-list (stx->list e))])
(define-values (cov cnt) (recur v))
(values (+ covered cov)
(+ count cnt)))]