diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-01-13 15:17:11 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-13 15:17:11 -0500 |
| commit | 0d98ce87ef495ab8652327866b9a2253cbe824d7 (patch) | |
| tree | a43e5082a4a3349616ad6b68329b7e363e1e7926 /src/compiler.sml | |
| parent | 0d9b4b2f411af95f9a886a3b188f0b2c688be27b (diff) | |
Initial experiments with nested <dyn>
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 6d499283..52181401 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -531,7 +531,8 @@ val toFuse = transform fuse "fuse" o toMono_opt3 val toUntangle2 = transform untangle "untangle2" o toFuse -val toMono_shake2 = transform mono_shake "mono_shake2" o toUntangle2 +val toMono_reduce2 = transform mono_reduce "mono_reduce2" o toUntangle2 +val toMono_shake2 = transform mono_shake "mono_shake2" o toMono_reduce2 val pathcheck = { func = (fn file => (PathCheck.check file; file)), |