diff options
author | 2008-11-20 11:34:36 -0500 | |
---|---|---|
committer | 2008-11-20 11:34:36 -0500 | |
commit | a01f4dd530689d29ac7518bb9a8d19b919ef76ac (patch) | |
tree | be1fb9f820200f6d2620e1e597ff809b1f438d29 /src/main.mlton.sml | |
parent | 7b09fa2aca2982038889f960e51d7b1e91a70991 (diff) |
Some demo improvements
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r-- | src/main.mlton.sml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index eb92e39d..1fd4f073 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -29,7 +29,9 @@ fun doArgs (args, (timing, demo, sources)) = case args of [] => (timing, demo, rev sources) | "-demo" :: prefix :: rest => - doArgs (rest, (timing, SOME prefix, sources)) + doArgs (rest, (timing, SOME (prefix, false), sources)) + | "-guided-demo" :: prefix :: rest => + doArgs (rest, (timing, SOME (prefix, true), sources)) | arg :: rest => let val acc = @@ -52,8 +54,8 @@ val job = val () = case demo of - SOME prefix => - Demo.make {prefix = prefix, dirname = job} + SOME (prefix, guided) => + Demo.make {prefix = prefix, dirname = job, guided = guided} | NONE => if timing then Compiler.time Compiler.toCjrize job |