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

So we _can_ do this, but since provides/requires are between modules, and

Browse Source 
thus it's the enclosing module that made the contract here, we should
blame it for the misuse, not the contract boundary in which the call was
made (though further thought should be put towards this).

svn: r11687
This commit is contained in:
Stevie Strickland 2008-09-12 16:39:11 +00:00
parent eb919c78d1
commit e2c770ab45
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/private/contract.ss
View File

@ -274,8 +274,7 @@ improve method arity mismatch contract violation error messages?
#`(-contract contract-id #`(-contract contract-id
id id
pos-module-source pos-module-source
(or '#,(syntax-parameter-value #'current-contract-region) (module-source-as-symbol #'name)
(module-source-as-symbol #'name))
#,(id->contract-src-info #'id))))))]) #,(id->contract-src-info #'id))))))])
(when key (when key
(hash-set! saved-id-table key lifted-id)) (hash-set! saved-id-table key lifted-id))