From e76ee80695acce02b283d12eedc26477ace15b1f Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 20 Feb 2014 10:27:15 -0500 Subject: Some more nested functor bug-fixing, including generating fresh internal names at applications; still need to debug issues with datatype constructors --- src/main.mlton.sml | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/main.mlton.sml') diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 6bdc9539..71fefc48 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -124,6 +124,13 @@ fun oneRun args = | "-dumpSource" :: rest => (Compiler.dumpSource := true; doArgs rest) + | "-dumpVerboseSource" :: rest => + (Compiler.dumpSource := true; + ElabPrint.debug := true; + ExplPrint.debug := true; + CorePrint.debug := true; + MonoPrint.debug := true; + doArgs rest) | "-output" :: s :: rest => (Settings.setExe (SOME s); doArgs rest) -- cgit v1.2.3