diff options
Diffstat (limited to 'src/cljcc/schema.clj')
| -rw-r--r-- | src/cljcc/schema.clj | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/cljcc/schema.clj b/src/cljcc/schema.clj index 23d7967..663604c 100644 --- a/src/cljcc/schema.clj +++ b/src/cljcc/schema.clj @@ -21,6 +21,10 @@ [:map [:type [:= :ulong]]]) +(def DoubleType + [:map + [:type [:= :double]]]) + (def FunType [:map [:type [:= :function]] @@ -32,12 +36,14 @@ ::mtype-long #'LongType ::mtype-uint #'UIntType ::mtype-ulong #'ULongType + ::mtype-double #'DoubleType ::mtype-function #'FunType}} [:multi {:dispatch :type} [:int #'IntType] [:long #'LongType] [:uint #'UIntType] [:ulong #'ULongType] + [:double #'DoubleType] [:function #'FunType]]]) (def Const |