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

oops

Browse Source 
svn: r9802
This commit is contained in:
Robby Findler 2008-05-11 02:14:15 +00:00
parent 60ca977d19
commit 9afde2887c
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/drscheme/private/language-object-contract.ss
View File

@ -81,9 +81,9 @@
(capability-value
(->d ([s (and/c symbol?
drscheme:language:get-capability-contract)])
drscheme:language:capability-registered?)])
()
[res (drscheme:language:capability-registered? s)]))))])
[res (drscheme:language:get-capability-contract s)]))))])
#`(begin
(define id (reconstitute #,ctc provide?))
#,@(if (syntax-e #'provide?)