(module for-sql-syntax mzscheme (provide (all-defined)) (define-struct sql-type (contract ->string <-string)) (define-struct sql-field (name column type contract ->string <-string)) (define table-type-namespace (make-hash-table)) (define default-type (gensym)) )