Matthew Butterick 5 years ago
parent 96ade70d15
commit 644550a2cb

@ -15,8 +15,8 @@ https://github.com/mbutterick/restructure/blob/master/src/Reserved.coffee
(super-new)
(init-field [(@type type)] [(@count count)])
(unless (xenomorphic-type? @type)
(raise-argument-error '+xoptional "xenomorphic type" @type))
(unless (xenomorphic? @type)
(raise-argument-error 'x:reserved "xenomorphic type" @type))
(define/augment (x:decode port parent)
(pos port (+ (pos port) (x:size #f parent)))

Loading…
Cancel
Save