From 7e844f92b94cd72037449e097e59f8e0661adfe1 Mon Sep 17 00:00:00 2001 From: ben Date: Fri, 4 Mar 2016 17:23:23 -0500 Subject: [PATCH] [vector] stop expanding when parsing vector length --- vector.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/vector.rkt b/vector.rkt index 8887741..2891419 100644 --- a/vector.rkt +++ b/vector.rkt @@ -301,9 +301,7 @@ (_ make-vector n e* ...) (build-vector n e* ...) (_ build-vector n e* ...)) - (if (syntax-transforming?) - (quoted-stx-value? (expand-expr #'n)) - (and (exact-nonnegative-integer? (syntax-e #'n)) (syntax-e #'n)))] + (and (exact-nonnegative-integer? (syntax-e #'n)) (syntax-e #'n))] [_ #f])]))