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

fix syntax patterns on prefabs (PR 10268) (merge to 4.2)

Browse Source 
svn: r15001
This commit is contained in:
Matthew Flatt 2009-05-28 03:01:45 +00:00
parent b181309703
commit de0fc2e745
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/stxcase.ss
View File

@ -235,8 +235,8 @@
(append m body))
body)))))))])))]
[(eq? i 'prefab)
(and (stx-prefab? (vector-ref i 1) e)
(loop (vector-ref i 2) (cdr (vector->list (struct->vector (syntax-e e)))) cap))]
(and (stx-prefab? (vector-ref pat 1) e)
(loop (vector-ref pat 2) (cdr (vector->list (struct->vector (syntax-e e)))) cap))]
[else (error "yikes!" pat)]))]))))
(-define-syntax syntax-case**