fix code

src/rustint/core.clj

@@ -2164,7 +2164,7 @@
 ; true
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defn compatibles? [rtype arg]
-  (let [rtypes (hash-map 'i64 integer?), func (get rtypes rtype)]
+  (let [rtypes (hash-map 'i64 integer?, 'f64 float?), func (get rtypes rtype)]
       (or (vector? arg) (func arg))
   )
 )