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:
parent
1aaf771c59
commit
fe63998455
|
@ -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)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user