From 1bb773ba2986a38420748f9e1eef2df3eaaf3532 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Apr 2010 08:52:31 -0600 Subject: [PATCH] fix compatibility drscheme tool linking --- collects/drscheme/private/tools-drs.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/tools-drs.rkt b/collects/drscheme/private/tools-drs.rkt index bb121ee72c..e31551b0a4 100644 --- a/collects/drscheme/private/tools-drs.rkt +++ b/collects/drscheme/private/tools-drs.rkt @@ -80,8 +80,8 @@ This file sets up the right lexical environment to invoke the tools that want to ;; these two definitions are a hack. They give bindings for the drracket: based names that ;; appear in the source of language-object-contract.rkt. -(define drracket:language:capability-registered? drscheme:language:capability-registered?) -(define drracket:language:get-capability-contract drscheme:language:get-capability-contract) +(define (drracket:language:capability-registered? . args) (apply drscheme:language:capability-registered? args)) +(define (drracket:language:get-capability-contract . args) (apply drscheme:language:get-capability-contract args)) ;; invoke-drs-tool : unit/sig string -> (values (-> void) (-> void)) ;; invokes the tools and returns the two phase thunks.