diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-11 09:36:47 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 09:36:47 -0400 |
| commit | 7bc788c67ed9331773355ceeae4ace7923a6e914 (patch) | |
| tree | 94beda93e06e4418c5d001aa317365a1d878efdb /src/specialize.sml | |
| parent | 9e804908dd69043c8a9942cdf6042b8dc0d76175 (diff) | |
Unpoly non-recursive function
Diffstat (limited to 'src/specialize.sml')
| -rw-r--r-- | src/specialize.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/specialize.sml b/src/specialize.sml index c8af5199..ddaff92e 100644 --- a/src/specialize.sml +++ b/src/specialize.sml @@ -25,7 +25,7 @@ * POSSIBILITY OF SUCH DAMAGE. *) -(* Simplify a Core program algebraically *) +(* Simplify a Core program by repeating polymorphic definitions of datatypes *) structure Specialize :> SPECIALIZE = struct @@ -61,7 +61,7 @@ type state = { count : int, datatypes : datatyp IM.map, constructors : int IM.map, - decls : decl list + decls : decl list } fun kind (k, st) = (k, st) |