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,