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

Fixed an expected contract message.

Browse Source 
svn: r17749
This commit is contained in:
Carl Eastlund 2010-01-19 09:25:02 +00:00
parent ad9968493e
commit 934c775c25
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/private/contract-define.ss
View File

@ -14,7 +14,7 @@
(define-for-syntax (make-define/contract-transformer contract-id id)
(make-set!-transformer
(λ (stx)
(with-syntax ([neg-blame-str (source-location->string stx)]
(with-syntax ([neg-blame-str (source-location->string stx "<<unknown>>")]
[contract-id contract-id]
[id id])
(syntax-case stx (set!)