cs: report file for bad-version errors

2018-06-22 13:39:08 -06:00 · 2018-06-22 13:39:08 -06:00 · 4fa8a9870d
commit 4fa8a9870d
parent 00b9acdac3
1 changed files with 6 additions and 1 deletions
--- a/racket/src/cs/linklet.sls
+++ b/racket/src/cs/linklet.sls
@ -960,7 +960,12 @@
        (raise-arguments-error 'read-compiled-linklet
                               "version mismatch"
                               "expected" (version)
-                               "found" (bytes->string/utf-8 vers #\?)))
+                               "found" (bytes->string/utf-8 vers #\?)
+                               "in" (let ([n (object-name in)])
+                                      (if (path? n)
+                                          (unquoted-printing-string
+                                           (path->string n))
+                                          in))))
      (let ([tag (read-byte in)])
        (cond
         [(equal? tag (char->integer #\B))