diff -Naur mosref-2.0-beta3.orig/bin/install.ms mosref-2.0-beta3/bin/install.ms --- mosref-2.0-beta3.orig/bin/install.ms 2006-07-29 21:02:07.000000000 +0000 +++ mosref-2.0-beta3/bin/install.ms 2008-01-10 00:31:08.000000000 +0000 @@ -2,10 +2,10 @@ (import "lib/build") (define (main . args) - (define base-dir #f) - (define mod-dir #f) - (define stub-dir #f) - (define bin-dir #f) + (define base-dir "%%DESTDIR%%") + (define mod-dir (string-append base-dir "/lib/mosvm")) + (define stub-dir (string-append mod-dir "-stubs")) + (define bin-dir (string-append base-dir "/bin")) (define good #f) (define (do-config-prompt title current guess-fn description) @@ -82,13 +82,13 @@ (" Stub Directory" stub-dir) (" Binary Directory" bin-dir)))) - (configure) + ;(configure) (write-data-file "site/config.ms" (string-append ";;; Generated by bin/install.ms" *line-sep* - "(set-site-config! 'bin-path \"" bin-dir "\")" *line-sep* - "(set-site-config! 'mod-path '(\".\" \"" mod-dir "\"))" *line-sep* - "(set-site-config! 'stub-path \"" stub-dir "\")" *line-sep*)) + "(set-site-config! 'bin-path \"/usr/bin\")" *line-sep* + "(set-site-config! 'mod-path '(\".\" \"/usr/lib/mosvm\"))" *line-sep* + "(set-site-config! 'stub-path \"/usr/lib/mosvm-stubs\")" *line-sep*)) (mosc "site/config.ms")