diff options
Diffstat (limited to 'modules/language/python/number.scm')
| -rw-r--r-- | modules/language/python/number.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/language/python/number.scm b/modules/language/python/number.scm index a44707c..4976470 100644 --- a/modules/language/python/number.scm +++ b/modules/language/python/number.scm @@ -222,7 +222,7 @@ (define-method (py-floor (o1 <integer>)) o1) -(define-method (py-floor (o1 <number> )) ) +(define-method (py-floor (o1 <number> )) (inexact->exact (floor o1))) (define-method (py-trunc (o1 <integer>)) (exact->inexact o1)) (define-method (py-trunc (o1 <number> )) (floor o1)) @@ -412,7 +412,7 @@ (let lp ((n n)) (cond ((and (number? n) (integer? n)) - n) + (inexact->exact n)) ((boolean? n) (if n 1 0)) ((number? n) |