(module installer mzscheme
  (require (lib "make.ss" "make"))
  (require (lib "process.ss"))
  (provide pre-installer)
  (define (pre-installer PLTHOME directory-path)
    (printf "PLTHOME: ~a\n" PLTHOME)
    (case (system-type)
      ((unix) 
       (parameterize ((current-directory directory-path))
         (system "sh build-allegro.sh"))
		
       #;(parameterize ((current-directory
			       (build-path directory-path
					   "allegro-4.2.0")))
	        (system "chmod +x misc/deplib.sh misc/depmod.sh misc/deplexe.sh misc/depdlib.sh misc/depdexe.sh misc/depmexe.sh")
		(if (not (= (system/exit-code "sh configure --disable-asm") 0))
		  (error 'pre-installer "Could not build Allegro")
		  (begin
		    (system "make")
		    ;; hack!
		    (system "cp modules.lst lib/unix"))))))))