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