X-Git-Url: http://git.hcoop.net/bpt/mlt.git/blobdiff_plain/dc3b1a7f9c941c2a323e57861871090465fa31f7..e1968c00f76f1200aec08702810dcf13c85964b1:/src/config.sml

diff --git a/src/config.sml b/src/config.sml
index 3ddc0d7..8c66fbc 100644
--- a/src/config.sml
+++ b/src/config.sml
@@ -131,15 +131,15 @@ struct
 	in
 	    read fields
 	    before TextIO.closeIn inf
-	end handle Io => config
+	end handle IO.Io _ => config
 
     fun default () =
 	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,