* Fixed bug 160972: fltruncate throws "not a procedure"

2007-11-08 12:15:28 -05:00
parent 97d9c4ca42
commit 82c3e568c7
1 changed files with 1 additions and 1 deletions
@@ -2075,7 +2075,7 @@
      (error 'fltruncate "not a flonum" x))
    (let ([v ($flonum->exact x)])
      (cond
-        [(ratnum? v) (exact->inexact ($ratnum-truncate x))]
+        [(ratnum? v) (exact->inexact ($ratnum-truncate v))]
        [else x])))

  (define log