|
|
|
@ -2163,6 +2163,10 @@ |
|
|
|
; user=> (compatibles? 'char ['a]) |
|
|
|
; user=> (compatibles? 'char ['a]) |
|
|
|
; true |
|
|
|
; true |
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
|
|
|
|
(defn usize? [arg] |
|
|
|
|
|
|
|
(and (> arg 0) (integer? arg)) |
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
|
|
(defn compatibles? [rtype arg] |
|
|
|
(defn compatibles? [rtype arg] |
|
|
|
(let [rtypes ( |
|
|
|
(let [rtypes ( |
|
|
|
hash-map |
|
|
|
hash-map |
|
|
|
@ -2170,6 +2174,7 @@ |
|
|
|
'f64 float?, |
|
|
|
'f64 float?, |
|
|
|
'String string?, |
|
|
|
'String string?, |
|
|
|
'bool boolean? |
|
|
|
'bool boolean? |
|
|
|
|
|
|
|
'usize usize? |
|
|
|
), func (get rtypes rtype)] |
|
|
|
), func (get rtypes rtype)] |
|
|
|
(or (vector? arg) (func arg)) |
|
|
|
(or (vector? arg) (func arg)) |
|
|
|
) |
|
|
|
) |
|
|
|
|