no need for string->immutable-string

svn: r13834
2009-02-25 15:52:02 +00:00 · 2009-02-25 15:52:02 +00:00 · 2a2697c20a
commit 2a2697c20a
parent 4fd43c7d9a
1 changed files with 1 additions and 2 deletions
--- a/collects/handin-server/checker.ss
+++ b/collects/handin-server/checker.ss
@ -334,8 +334,7 @@
           (if (memq unknown vals)
             exn
             (apply (struct-type-make-constructor struct-type)
-                    (string->immutable-string
-                     (format "while evaluating ~s:\n  ~a" expr (car vals)))
+                    (format "while evaluating ~s:\n  ~a" expr (car vals))
                    (cdr vals))))
         exn))))
  (with-handlers ([exn? reraise]) (eval expr)))