fix PR8399

svn: r4912
2006-11-21 22:19:06 +00:00 · 2006-11-21 22:19:06 +00:00 · da1163561f
commit da1163561f
parent 5bf8586f99
1 changed files with 2 additions and 2 deletions
--- a/collects/ffi/c-printf.ss
+++ b/collects/ffi/c-printf.ss
@ -19,8 +19,8 @@
  (define itypes
    (cons _string
          (map (lambda (x)
-                 (cond [(integer? x) _int]
-                       [(and (number? x) (not (complex? x)))  _double*]
+                 (cond [(and (integer? x) (exact? x)) _int]
+                       [(and (number? x) (real? x))   _double*]
                       [(string? x)  _string]
                       [(bytes? x)   _bytes]
                       [(symbol? x)  _symbol]