diff options
| author |  FrigoEU <simon.van.casteren@gmail.com> | 2019-08-03 10:37:07 +0200 |
|---|---|---|
| committer | FrigoEU <simon.van.casteren@gmail.com> | 2019-08-03 10:37:07 +0200 |
| commit | a37678c2cf668b4837cdf5d147f4c2f26b2634e9 (patch) | |
| tree | 3fa2b7ea8c500c12e3af8159391d082a6718e8a4 /src/main.mlton.sml | |
| parent | 120b7d2886e71b6e2000f94f0570d933542b2941 (diff) | |
Added comments and extracted typeOf/getInfo into seperate module
Diffstat (limited to 'src/main.mlton.sml')
| -rw-r--r-- | src/main.mlton.sml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index bb5d2166..bbee8c90 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -139,8 +139,8 @@ fun oneRun args = fun printModuleOf fname = print_and_exit (Compiler.moduleOf fname) () - fun typeOf loc = - (Print.print (Compiler.typeOf loc); + fun getInfo loc = + (Print.print (GetInfo.getInfo loc); raise Code OS.Process.success) fun add_class (class, num) = @@ -249,8 +249,8 @@ fun oneRun args = NONE), ("moduleOf", ONE ("<file>", printModuleOf), SOME "print module name of <file> and exit"), - ("typeOf", ONE ("<file:row:col>", typeOf), - SOME "print type of expression at <file:row:col> and exit"), + ("getInfo", ONE ("<file:row:col>", getInfo), + SOME "print info of expression at <file:row:col> and exit"), ("noEmacs", set_true Demo.noEmacs, NONE), ("limit", TWO ("<class>", "<num>", add_class), |