diff --git a/xenomorph/xenomorph/reserved.rkt b/xenomorph/xenomorph/reserved.rkt index 6991d434..3953f735 100644 --- a/xenomorph/xenomorph/reserved.rkt +++ b/xenomorph/xenomorph/reserved.rkt @@ -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)))