shithub: fnt

Info  •  Files  •  Log  •  Branches

size-in-bits contract: 40 and 48 aren't valid bit sizes, remove

--- a/otf.rkt

+++ b/otf.rkt

@@ -16,7 +16,7 @@

 (define-for-syntax (type-index? type) (member type '(uint16 uint32)))

 (define size-in-bits/c

-  (make-contract #:name 'size-in-bits/c #:first-order (λ (x) (member x '(8 16 24 32 40 48 64)))))

+  (make-contract #:name 'size-in-bits/c #:first-order (λ (x) (member x '(8 16 24 32 64)))))

 (define tag/c

   (make-contract #:name 'tag/c #:first-order (λ (x) (and (string? x) (= 4 (string-length x))))))