From e4260c5cfe71e3619ee6b7af56a532bdc67557d7 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Sun, 27 Nov 2022 11:31:10 -0300 Subject: [PATCH] fix code --- src/rustint/core.clj | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index aba69fa..0879f98 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2132,7 +2132,11 @@ ; 0.5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defn dividir [arg1 arg2] - (quot arg1 arg2) + ( + cond + (and (float? arg2) (int? arg1)) (/ arg1 arg2) + :else (quot arg1 arg2) + ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;