PasteRack.org
Paste # 62158
2019-03-12 10:18:26

Fork as a new paste.

Paste viewed 77 times.


Embed:

  1. #lang racket
  2.  
  3. (define (deserialize ser)
  4.   (with-input-from-string ser
  5.     (lambda [v]
  6.       (match v
  7.         [(vector 'struct:bib-record ... vals) (bib-record vals)]
  8.         [_ 'not-supported]))))

=>