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