changed error message to include sizes

svn: r17246
2009-12-09 06:06:56 +00:00 · 2009-12-09 06:06:56 +00:00 · 357b8cb90b
commit 357b8cb90b
parent d18403a303
1 changed files with 3 additions and 3 deletions
--- a/collects/scheme/foreign.ss
+++ b/collects/scheme/foreign.ss
@ -1271,9 +1271,9 @@
  (unless (= (ctype-sizeof to-type)
             (ctype-sizeof from-type))
    (raise-mismatch-error 'cast
-                          (format "representation sizes of types differ: ~e to "
-                                  from-type)
-                          to-type))
+                          (format "representation sizes of from and to types differ: ~e and "
+                                  (ctype-sizeof from-type))
+                          (ctype-sizeof to-type)))
  (let ([p2 (malloc from-type)])
    (ptr-set! p2 from-type p)
    (ptr-ref p2 to-type)))