shithub: fnt

Info  •  Files  •  Log  •  Branches

fix wrong C type used

--- a/otf.rkt

+++ b/otf.rkt

@@ -133,7 +133,7 @@

     [(_ typ:id bits c:id parse:expr)

      #:declare bits (expr/c #'size-in-bits/c #:name "size in bits")

      #'(begin

-         (define typ (make-type `typ bits.c `typ parse))

+         (define typ (make-type `typ bits.c `c parse))

          (set! types (append types (list typ))))]))

 (define-syntax (mkcmplx stx)