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

applying make-prefab-struct

Browse Source 
original commit: 551ef5ba30
This commit is contained in:
Blake Johnson 2010-08-02 16:18:11 -06:00 committed by Jay McCarthy
parent 2efb39c391
commit c998fe85e9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/zo-marshal.rkt
View File

@ -675,7 +675,8 @@
(vector-map encode-wrapped v)] (vector-map encode-wrapped v)]
[(? prefab-struct-key) [(? prefab-struct-key)
(define l (vector->list (struct->vector datum))) (define l (vector->list (struct->vector datum)))
(make-prefab-struct (apply
make-prefab-struct
(car l) (car l)
(map encode-wrapped (cdr l)))] (map encode-wrapped (cdr l)))]
[_ datum])] [_ datum])]