[Fluxus] osx app runtime loading problems

[gabor papp]

hi,

i'm trying to fix the fluxus osx app that it can be run from any
directories not just from /Applications.

the problem is that boot.scm is loaded from an absolute path, and i
haven't managed to find out the current path from scheme if the program
is run as an osx application. tried (current-directory),
(find-system-path 'exec-file), (find-system-path 'orig-dir),
(find-executable-path), but none of them worked.

at last i managed to get the current directory using the
CFBundleCopyResourcesDirectoryURL function call from c. i replace the
collects path and data directories based on this. patch attached. so the
startup script looks like this when run:

(define plt-collects-location
"/Users/gabor/projects/fluxus/git/fluxus/Fluxus.app/Contents/Resources/collects/")
(define fluxus-collects-location
"/Users/gabor/projects/fluxus/git/fluxus/Fluxus.app/Contents/Resources/collects/")
(define fluxus-version "016") (define fluxus-data-location
"/Users/gabor/projects/fluxus/git/fluxus/Fluxus.app/Contents/Resources")
(load (string-append fluxus-collects-location "/fluxus-" fluxus-version
"/boot.scm"))

which seems to be right, but i receive this error message from a default
plt module, when the app is run:
Fluxus.app/Contents/Resources/collects/mzlib/unit.ss:1460:38: syntax: no
pattern variables before ellipses in template at: ... in: ((import i.s
...) (export e.s ...) dep . body)

do you have any idea what this could be? any help would be appreciated.

best,
gabor
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: osx_app.patch
URL: <http://lists.pawfal.org/pipermail/fluxus-pawfal.org/attachments/20090414/3cd1d173/attachment.asc>