7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
15 lines
502 B
Scheme
15 lines
502 B
Scheme
(module pre-installer mzscheme
|
|
(require profj/compile)
|
|
(provide pre-installer)
|
|
|
|
(define (pre-installer plthome)
|
|
(let ((draw-path (build-path (collection-path "htdch" "draw"))))
|
|
(let ((javac
|
|
(lambda (file)
|
|
(parameterize ([current-load-relative-directory draw-path])
|
|
(compile-java 'file 'file 'full
|
|
(build-path draw-path file)
|
|
#f #f)))))
|
|
(javac "Posn.java")
|
|
))))
|