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

svn: r392

Browse Source
This commit is contained in:
Kathy Gray 2005-07-18 17:07:24 +00:00
parent 4b0e802fe4
commit ce9dae1480
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/htdch/draw/installer.ss
View File

@ -2,11 +2,15 @@
(require (lib "compile.ss" "profj")) (require (lib "compile.ss" "profj"))
(provide installer) (provide installer)
(define (mprintf a)
(fprintf a (current-error-port)))
(define (installer plthome) (define (installer plthome)
(let ((draw-path (build-path (collection-path "htdch" "draw")))) (let ((draw-path (build-path (collection-path "htdch" "draw"))))
(let ((javac (let ((javac
(lambda (file) (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 (compile-java 'file 'file 'full
(build-path draw-path file) (build-path draw-path file)
#f #f))))) #f #f)))))
@ -19,5 +23,6 @@
(javac "Blue.java") (javac "Blue.java")
(javac "Black.java") (javac "Black.java")
(javac "Green.java") (javac "Green.java")
(javac "Yellow.java"))))) (javac "Yellow.java")
))))