fix dividir

src/rustint/core.clj

@@ -2582,10 +2582,9 @@
 ; 0.5
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defn dividir [arg1 arg2]
-  (
+  (if (and (int? arg1) (int? arg2))
-   cond
+    (quot arg1 arg2)
-   (and (float? arg2) (int? arg1)) (/ arg1 arg2)
+    (/ arg1 arg2)
-   :else (quot arg1 arg2)
   )
 )