2017-08-10 19:17:28 +00:00
|
|
|
#lang syndicate
|
2016-07-31 16:17:12 +00:00
|
|
|
;; File System Demo protocol
|
|
|
|
|
|
|
|
(provide (struct-out file)
|
|
|
|
(struct-out save)
|
|
|
|
(struct-out delete))
|
|
|
|
|
|
|
|
(struct file (name content) #:prefab)
|
|
|
|
(struct save (file) #:prefab)
|
|
|
|
(struct delete (name) #:prefab)
|