suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no need for string->immutable-string

Browse Source 
svn: r13834
This commit is contained in:
Eli Barzilay 2009-02-25 15:52:02 +00:00
parent 4fd43c7d9a
commit 2a2697c20a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/handin-server/checker.ss
View File

@ -334,8 +334,7 @@
(if (memq unknown vals) (if (memq unknown vals)
exn exn
(apply (struct-type-make-constructor struct-type) (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)))) (cdr vals))))
exn)))) exn))))
(with-handlers ([exn? reraise]) (eval expr))) (with-handlers ([exn? reraise]) (eval expr)))