suzanne.soy/trivial
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[vector] stop expanding when parsing vector length

Browse Source
This commit is contained in:
ben 2016-03-04 17:23:23 -05:00
parent 1da1b34400
commit 7e844f92b9
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vector.rkt
View File

@ -301,9 +301,7 @@
(_ make-vector n e* ...) (_ make-vector n e* ...)
(build-vector n e* ...) (build-vector n e* ...)
(_ build-vector n e* ...)) (_ build-vector n e* ...))
(if (syntax-transforming?) (and (exact-nonnegative-integer? (syntax-e #'n)) (syntax-e #'n))]
(quoted-stx-value? (expand-expr #'n))
(and (exact-nonnegative-integer? (syntax-e #'n)) (syntax-e #'n)))]
[_ [_
#f])])) #f])]))