diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-01-12 20:37:39 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-01-12 20:37:39 -0500 |
| commit | a3f5a3a95ee01e9d27933ca5c1c755ceb9dac1af (patch) | |
| tree | 4345b88e3ae93a675e27dffbe3a5b9a44499a74b /src/main.mlton.sml | |
| parent | 7f9f5b2409507d7b84f15737be1f4ce185e4cda6 (diff) | |
-dumpSource flag; Especialize tweak: may specialize any argument sequence ending in a value of function-containing type
Diffstat (limited to 'src/main.mlton.sml')
| -rw-r--r-- | src/main.mlton.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 6f38efa8..57927258 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -1,4 +1,4 @@ -(* Copyright (c) 2008-2011, Adam Chlipala +(* Copyright (c) 2008-2012, Adam Chlipala * All rights reserved. * * Redistribution and use in source and binary forms, with or without @@ -85,6 +85,9 @@ fun doArgs args = | "-dumpTypes" :: rest => (Elaborate.dumpTypes := true; doArgs rest) + | "-dumpSource" :: rest => + (Compiler.dumpSource := true; + doArgs rest) | "-output" :: s :: rest => (Settings.setExe (SOME s); doArgs rest) |