diff --git a/xenomorph/xenomorph/number.rkt b/xenomorph/xenomorph/number.rkt index ddf2a79c..b8a6d4f8 100644 --- a/xenomorph/xenomorph/number.rkt +++ b/xenomorph/xenomorph/number.rkt @@ -70,12 +70,16 @@ https://github.com/mbutterick/restructure/blob/master/src/Number.coffee ([i (in-range @size)]) (values (cons (bitwise-and val #xff) bs) (arithmetic-shift val -8)))))) -(define (x:int [size 2] +(define (x:int [size-arg #f] + #:size [size-kwarg 2] #:signed [signed #true] #:endian [endian system-endian] #:pre-encode [pre-proc #f] #:post-decode [post-proc #f]) - (new (generate-subclass x:int% pre-proc post-proc) [size size] [signed signed] [endian endian])) + (new (generate-subclass x:int% pre-proc post-proc) + [size (or size-arg size-kwarg)] + [signed signed] + [endian endian])) (define int8 (x:int 1)) (define int16 (x:int 2))