From a48fecced168ffb91f6ae3c26fd8910fb6433ed9 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 4 Mar 2008 17:33:13 +0000 Subject: [PATCH] re comment-out installer line, since the main installer calls all subs now svn: r8876 --- collects/htdch/idraw/info.ss | 2 +- collects/htdch/installer.scm | 28 +++++++++++++--------------- 2 files changed, 14 insertions(+), 16 deletions(-) diff --git a/collects/htdch/idraw/info.ss b/collects/htdch/idraw/info.ss index 6c46e8acf7..46810a8a7e 100644 --- a/collects/htdch/idraw/info.ss +++ b/collects/htdch/idraw/info.ss @@ -2,5 +2,5 @@ (define name "Imperative Drawing") (define assume-virtual-sources #t) -(define install-collection "installer.ss") +;; (define install-collection "installer.ss") ;; (define pre-install-collection "pre-installer.ss") diff --git a/collects/htdch/installer.scm b/collects/htdch/installer.scm index 4c30c0e401..421af89e65 100644 --- a/collects/htdch/installer.scm +++ b/collects/htdch/installer.scm @@ -1,17 +1,15 @@ -(module installer mzscheme - (require (prefix geo: (lib "installer.ss" "htdch" "geometry")) - (prefix color: (lib "installer.ss" "htdch" "colors")) - (prefix draw: (lib "installer.ss" "htdch" "draw")) - (prefix idraw: (lib "installer.ss" "htdch" "idraw")) - (prefix graph: (lib "installer.ss" "htdch" "graphics")) - ) - (provide installer) +#lang mzscheme - (define (installer plthome) - (geo:installer plthome) - (color:installer plthome) - (draw:installer plthome) - (idraw:installer plthome) - (graph:installer plthome)) +(require (prefix geo: "geometry/installer.ss") + (prefix color: "colors/installer.ss") + (prefix draw: "draw/installer.ss") + (prefix idraw: "idraw/installer.ss") + (prefix graph: "graphics/installer.ss")) - ) +(provide installer) +(define (installer plthome) + (geo:installer plthome) + (color:installer plthome) + (draw:installer plthome) + (idraw:installer plthome) + (graph:installer plthome))