9 lines
146 B
Racket
9 lines
146 B
Racket
#lang racket/base
|
|
(require racket/serialize)
|
|
|
|
(serializable-struct foo (a b))
|
|
|
|
(define f (deserialize (serialize (foo 1 2))))
|
|
(foo-a f)
|
|
(foo-b f)
|