From ce9dae1480ab2b1b86c89b52e93d5e9a90c8abe2 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Mon, 18 Jul 2005 17:07:24 +0000 Subject: [PATCH] svn: r392 --- collects/htdch/draw/installer.ss | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/htdch/draw/installer.ss b/collects/htdch/draw/installer.ss index ad420074aa..24c25c010c 100644 --- a/collects/htdch/draw/installer.ss +++ b/collects/htdch/draw/installer.ss @@ -2,11 +2,15 @@ (require (lib "compile.ss" "profj")) (provide installer) + (define (mprintf a) + (fprintf a (current-error-port))) + (define (installer plthome) (let ((draw-path (build-path (collection-path "htdch" "draw")))) (let ((javac (lambda (file) - (parameterize ([current-load-relative-directory draw-path]) + (parameterize ([current-load-relative-directory draw-path] + [current-directory draw-path] ) (compile-java 'file 'file 'full (build-path draw-path file) #f #f))))) @@ -19,5 +23,6 @@ (javac "Blue.java") (javac "Black.java") (javac "Green.java") - (javac "Yellow.java"))))) + (javac "Yellow.java") + ))))