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

fix dll paths

Browse Source 
svn: r2840
This commit is contained in:
Eli Barzilay 2006-04-28 17:38:49 +00:00
parent 7e16058111
commit 75ad8cdcbe
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mysterx/installer.ss
View File

@ -1,10 +1,9 @@
(module installer mzscheme (module installer mzscheme
(require (lib "process.ss")) (require (lib "process.ss"))
(provide post-installer) (provide post-installer)
(define (post-installer mx-path) (define (post-installer plt-home)
(define (make-dll-path . more) (define (make-dll-path . more)
(apply build-path (collection-path "mysterx") (apply build-path plt-home "lib"))
"private" "compiled" "native" "win32" "i386" more))
(define (warn fmt . args) (apply fprintf (current-error-port) fmt args)) (define (warn fmt . args) (apply fprintf (current-error-port) fmt args))
(let* ([dlls '("myspage.dll" "myssink.dll")] (let* ([dlls '("myspage.dll" "myssink.dll")]
[dll-paths (map make-dll-path dlls)] [dll-paths (map make-dll-path dlls)]