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

rename

Browse Source 
svn: r9184
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-07 21:42:15 +00:00
parent 7f974d7383
commit ec502d4802
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/match/parse-helper.ss
View File

@ -34,9 +34,9 @@
(vector? (syntax-e #'vec))
(make-Vector (for/list ([e (vector->list (syntax-e #'vec))])
(parse (quasisyntax/loc stx (quote #,e)))))]
[(quote bx)
(vector? (syntax-e #'bx))
(make-Box (parse (quasisyntax/loc stx (quote #,(syntax-e #'bx)))))]
[(quote vec)
(vector? (syntax-e #'vec))
(make-Box (parse (quasisyntax/loc stx (quote #,(syntax-e #'vec)))))]
[(quote v)
(or (parse-literal (syntax-e #'v))
(raise-syntax-error 'match "non-literal in quote pattern" stx #'v))]