From d10ddc1348d9d4f15912aa5edb17c993a025d748 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 27 Mar 2009 13:47:12 +0000
Subject: [PATCH] Sam and I did some work to allow automatic inferred linking
 in (define-values/)invoke-unit/infer.

svn: r14315

original commit: 99aac7d7455c3ce9189d038f781558b6bd696424
---
 collects/framework/main.ss | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/collects/framework/main.ss b/collects/framework/main.ss
index f3617ea5..5b23fcfc 100644
--- a/collects/framework/main.ss
+++ b/collects/framework/main.ss
@@ -49,13 +49,10 @@
  (prefix scheme: framework:scheme-class^)
  (prefix main: framework:main-class^))
 
-(define-compound-unit/infer framework+mred@
-  (import)
+(define-values/invoke-unit/infer
   (export framework^)
   (link standard-mred@ framework@))
 
-(define-values/invoke-unit/infer framework+mred@)
-
 (provide/doc
  (parameter-doc
   text:autocomplete-append-after