simply dependencies

This commit is contained in:
Matthew Flatt 2011-04-03 09:37:03 -06:00
parent 4c5c46deed
commit cd9eb5a75c

View File

@ -6,9 +6,7 @@
'#%place-struct
racket/fixnum
racket/flonum
racket/vector
(only-in unstable/struct struct->list)
(for-syntax racket/base))
racket/vector)
(provide place
place-sleep
@ -82,7 +80,9 @@
(define key (prefab-struct-key o))
(when (not key)
(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)]))
(dcw x))