PasteRack.org
Paste # 65881
2018-07-12 16:11:42

Fork as a new paste.

Paste viewed 1265 times.


Embed:

  1. #lang racket
  2. (require racket/serialize)
  3.  
  4. (struct woot (a) #:prefab)
  5.  
  6. (serialize (woot (set 1 2 3)))
  7. ;'((3) 1 (((lib "racket/private/set-types.rkt") . deserialize-info:immutable-custom-set-v0)) 0 () () (f woot (0 #f (h - (equal) (1 . #t) (3 . #t) (2 . #t)))))
  8. (serialize (woot 1))
  9. ;'((3) 0 () 0 () () (f woot 1))
  10. (serialize (woot "hey"))
  11. ;'((3) 0 () 0 () () (f woot "hey"))

=>

'((3)

  1

  (((lib "racket/private/set-types.rkt")

    .

    deserialize-info:immutable-custom-set-v0))

  0

  ()

  ()

  (f woot (0 #f (h - (equal) (1 . #t) (3 . #t) (2 . #t)))))

'((3) 0 () 0 () () (f woot 1))

'((3) 0 () 0 () () (f woot "hey"))