From 56d6420dc18c4b6965119a4aadc9de016fb00da7 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Sat, 26 Nov 2022 23:39:59 -0300 Subject: [PATCH] fix code --- src/rustint/core.clj | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index fefaa73..b321a14 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2163,6 +2163,10 @@ ; user=> (compatibles? 'char ['a]) ; true ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defn usize? [arg] + (and (> arg 0) (integer? arg)) +) + (defn compatibles? [rtype arg] (let [rtypes ( hash-map @@ -2170,6 +2174,7 @@ 'f64 float?, 'String string?, 'bool boolean? + 'usize usize? ), func (get rtypes rtype)] (or (vector? arg) (func arg)) )