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

simply dependencies

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-03 09:37:03 -06:00
parent 4c5c46deed
commit cd9eb5a75c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racket/place.rkt
View File

@ -6,9 +6,7 @@
'#%place-struct '#%place-struct
racket/fixnum racket/fixnum
racket/flonum racket/flonum
racket/vector racket/vector)
(only-in unstable/struct struct->list)
(for-syntax racket/base))
(provide place (provide place
place-sleep place-sleep
@ -82,7 +80,9 @@
(define key (prefab-struct-key o)) (define key (prefab-struct-key o))
(when (not key) (when (not key)
(error "Must be a prefab struct")) (error "Must be a prefab struct"))
(apply make-prefab-struct key (map dcw (struct->list o)))] (apply make-prefab-struct
key
(map dcw (cdr (vector->list (struct->vector o)))))]
[else (error "Error not place serializable ~a" o)])) [else (error "Error not place serializable ~a" o)]))
(dcw x)) (dcw x))