syntax: fixed 'strip-context' on prefab structs

fixes bug in prefab struct literal in scheme/load module svn: r14038
2009-03-10 21:19:18 +00:00 · 2009-03-10 21:19:18 +00:00 · 64250c4931
commit 64250c4931
parent 37bd154af5
1 changed files with 1 additions and 0 deletions
--- a/collects/syntax/strip-context.ss
+++ b/collects/syntax/strip-context.ss
@ -18,5 +18,6 @@
   [(prefab-struct-key e)
    => (lambda (k)
         (apply make-prefab-struct
+                k
                (strip-context (cdr (vector->list (struct->vector e))))))]
   [else e]))