From 6e1cf4e82e79707d16b88b59869eb0716b26b8dd Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 16 Jan 2019 17:47:24 -0800 Subject: [PATCH] size kwarg --- xenomorph/xenomorph/number.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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))