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

[vector] using #%plain-app in match

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

8
vector.rkt
View File

@ -290,17 +290,17 @@
[(identifier? stx)
(free-id-table-ref id+vector-length stx #f)]
[else
(syntax-parse stx #:literals (vector make-vector build-vector)
(syntax-parse stx #:literals (#%plain-app vector make-vector build-vector)
[(~or '#(e* ...)
#(e* ...)
;; TODO #{} #[] #6{} ...
(_ vector e* ...) ;; TODO the _ should be matching #%app
(#%plain-app vector e* ...)
(vector e* ...))
(length (syntax->list #'(e* ...)))]
[(~or (make-vector n e* ...)
(_ make-vector n e* ...)
(#%plain-app make-vector n e* ...)
(build-vector n e* ...)
(_ build-vector n e* ...))
(#%plain-app build-vector n e* ...))
(and (exact-nonnegative-integer? (syntax-e #'n)) (syntax-e #'n))]
[_
#f])]))