diff options
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) |