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

fix compatibility drscheme tool linking

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-28 08:52:31 -06:00
parent 2c54268228
commit 1bb773ba29
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/tools-drs.rkt
View File

@ -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.