Welcome to the CHICKEN Scheme pasting service

(define-enum-group
  vars: export
  type: int
  symbol->int: number-type->int
  int->symbol: int->number-type
  ((float (blis-float BLIS_FLOAT))
   (double (blis-double BLIS_DOUBLE))
   (scomplex (blis-scomplex BLIS_SCOMPLEX))
   (dcomplex (blis-dcomplex BLIS_DCOMPLEX))
   (int (blis-int BLIS_INT))
   (constant (blis-constant BLIS_CONSTANT))))

(export number-type->int
        int->number-type)