Coerce results of division to a non fractional value

diff --git a/clisp/core.lisp b/clisp/core.lisp
index a54fdc4..1136c4c 100644 (file)
--- a/clisp/core.lisp
+++ b/clisp/core.lisp
@@ -40,8 +40,9 @@
                                       (types:apply-unwrapped-values '* value1 value2))))
 
    (cons (types:make-mal-symbol "/")
-         (types:make-mal-builtin-fn (   lambda (value1 value2)
-                                      (types:apply-unwrapped-values '/ value1 value2))))
+         (types:make-mal-builtin-fn (lambda (value1 value2)
+                                      (types:make-mal-number (float (/ (types:mal-data-value value1)
+                                                                       (types:mal-data-value value2)))))))
 
    (cons (types:make-mal-symbol "prn")
          (types:make-mal-builtin-fn (lambda (&rest strings)