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

.

Browse Source 
original commit: 3fb34309574c57839f34054905a29bf1179689b8
This commit is contained in:
Robby Findler 2004-08-12 14:58:33 +00:00
parent b82905f512
commit ecf7f4583e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/contract.ss
View File

@ -664,7 +664,7 @@ add struct contracts for immutable structs?
(format "broke ~a's contract:" datum) (format "broke ~a's contract:" datum)
"failed contract"))]) "failed contract"))])
(raise (raise
(make-exn (make-exn:fail
(string->immutable-string (string->immutable-string
(string-append (format "~a~a: ~a ~a ~a: " (string-append (format "~a~a: ~a ~a ~a: "
blame-src blame-src