From 551ef5ba30fbd274fc30f53cd06d9926873eff28 Mon Sep 17 00:00:00 2001 From: Blake Johnson Date: Mon, 2 Aug 2010 16:18:11 -0600 Subject: [PATCH] applying make-prefab-struct --- collects/compiler/zo-marshal.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/compiler/zo-marshal.rkt b/collects/compiler/zo-marshal.rkt index d3b0210063..6e0d8ae475 100644 --- 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])]