From 9afde2887c9cb27d28f4d0ab145137d23a279438 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 11 May 2008 02:14:15 +0000 Subject: [PATCH] oops svn: r9802 --- collects/drscheme/private/language-object-contract.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/language-object-contract.ss b/collects/drscheme/private/language-object-contract.ss index d77693741c..fb36810c70 100644 --- a/collects/drscheme/private/language-object-contract.ss +++ b/collects/drscheme/private/language-object-contract.ss @@ -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?)