From fe6399845508c0b7405addb0ec2e180d4f3bfda1 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 13 Aug 2015 11:18:09 -0500 Subject: [PATCH] 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. --- cover/private/html/html.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cover/private/html/html.rkt b/cover/private/html/html.rkt index 06fa567..d26c96a 100644 --- a/cover/private/html/html.rkt +++ b/cover/private/html/html.rkt @@ -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)))]