improved the expansion to make runtime error reporting better

svn: r5703
2007-02-27 23:48:00 +00:00 · 2007-02-27 23:48:00 +00:00 · d67ab8b0a9
commit d67ab8b0a9
parent e675ebf323
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/contract.ss
+++ b/collects/mzlib/private/contract.ss
@ -95,7 +95,7 @@ add struct contracts for immutable structs?
 			   stx
 			   (syntax id))]
 	   [(name arg ...)
-	    (syntax 
+	    (syntax/loc stx
 	     ((begin-lifted
                (-contract contract-id
                           id