applying make-prefab-struct

original commit: 551ef5ba30
2010-08-02 16:18:11 -06:00 · 2010-08-02 16:18:11 -06:00 · c998fe85e9
commit c998fe85e9
parent 2efb39c391
1 changed files with 2 additions and 1 deletions
--- a/collects/compiler/zo-marshal.rkt
+++ b/collects/compiler/zo-marshal.rkt
@ -675,7 +675,8 @@
                (vector-map encode-wrapped v)]
               [(? prefab-struct-key)
                (define l (vector->list (struct->vector datum)))
-                (make-prefab-struct
+                (apply
+                 make-prefab-struct
                 (car l)
                 (map encode-wrapped (cdr l)))]
               [_ datum])]