More un-hardcoding
[bpt/mlt.git] / src / config.sml
index 3ddc0d7..ad3946f 100644 (file)
@@ -137,9 +137,9 @@ struct
        let
            val cwd = OS.FileSys.getDir ()
        
        let
            val cwd = OS.FileSys.getDir ()
        
-           val base = CONFIG {lib = "/usr/local/share/mlt/src/lib/sources.cm",
-                              compiler = "/usr/local/share/mlt/src/sources.cm",
-                              sml = "/usr/local/sml/bin",
+           val base = CONFIG {lib = mltdir ^ "/src/lib/sources.cm",
+                              compiler = mltdir ^ "/src/sources.cm",
+                              sml = smlbin,
                               inPath = cwd,
                               outPath = cwd,
                               pubPath = cwd,
                               inPath = cwd,
                               outPath = cwd,
                               pubPath = cwd,