.

original commit: 3fb34309574c57839f34054905a29bf1179689b8
2004-08-12 14:58:33 +00:00 · 2004-08-12 14:58:33 +00:00 · ecf7f4583e
commit ecf7f4583e
parent b82905f512
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@ -664,7 +664,7 @@ add struct contracts for immutable structs?
 		 (format "broke ~a's contract:" datum)
 		 "failed contract"))])
      (raise
-       (make-exn
+       (make-exn:fail
        (string->immutable-string
         (string-append (format "~a~a: ~a ~a ~a: "
                                blame-src