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

Change this more to how it should be.

Browse Source 
svn: r13124
This commit is contained in:
Stevie Strickland 2009-01-14 21:35:07 +00:00
parent d3f703b043
commit c7ee5b600c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/private/contract-define.ss
View File

@ -25,7 +25,7 @@
(syntax/loc stx (syntax/loc stx
((contract contract-id ((contract contract-id
id id
(format "definition ~a" (syntax->datum (quote-syntax f))) (syntax->datum (quote-syntax f))
neg-blame-str neg-blame-str
(quote-syntax f)) (quote-syntax f))
arg arg
@ -35,7 +35,7 @@
(syntax/loc stx (syntax/loc stx
(contract contract-id (contract contract-id
id id
(format "definition ~a" (syntax->datum (quote-syntax ident))) (syntax->datum (quote-syntax ident))
neg-blame-str neg-blame-str
(quote-syntax ident)))]))))) (quote-syntax ident)))])))))