still mess, probably obsolete anyways

sex-types.scm

@@ -0,0 +1,23 @@
+(declare
+  (unit sex-types)
+  (uses fmt-c))
+
+(import fmt
+        srfi-69)
+
+(define +all-types+ (make-hash-table))
+
+(define (normalize-type type)
+  )
+
+(define (add-pointer type)
+  (list 'pointer type))
+
+(define (add-const type)
+  (list 'const type))
+
+(define (get-types-from-arglist arglist)
+  (list))
+
+(define (to-c-type type)
+  (fmt #f (c-type type)))