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

Use contracts for def-binding.

Browse Source 
Better error messages from require/typed.

svn: r9204

original commit: 909c20553d8c14901583bcaa9edd6674d60c2796
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-08 17:42:13 +00:00
parent a015829d77
commit 2681d0f43d
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/typed-scheme/private/require-contract.ss
View File

@ -18,4 +18,4 @@
(syntax-case stx ()
[(require/contract nm cnt lib)
#`(begin (require (only-in lib [nm tmp]))
(define-ignored nm (contract cnt tmp '#,(syntax->datum #'nm) 'never-happen #'#,stx)))]))
(define-ignored nm (contract cnt tmp '#,(syntax->datum #'nm) 'never-happen (quote-syntax nm))))]))