diff options
author | Adam Chlipala <adam@chlipala.net> | 2018-12-16 16:45:37 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2018-12-16 16:45:37 -0500 |
commit | 7578916b630bd84ec3f8e7d97aaaa1cc7828e5ef (patch) | |
tree | 14b6f896dfa03bb4b60461974587d3efdad56e12 /src/core_util.sig | |
parent | da394cfc931139dbd3a688679dcbddf5ce2e846e (diff) |
Specialize: ignore recursive references in classifying polymorphic uses of datatypes
Diffstat (limited to 'src/core_util.sig')
-rw-r--r-- | src/core_util.sig | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/core_util.sig b/src/core_util.sig index 835577a3..8d295f1e 100644 --- a/src/core_util.sig +++ b/src/core_util.sig @@ -161,6 +161,12 @@ structure Decl : sig decl : (Core.decl', 'state, 'abort) Search.mapfolder} -> (Core.decl, 'state, 'abort) Search.mapfolder + val map : {kind : Core.kind' -> Core.kind', + con : Core.con' -> Core.con', + exp : Core.exp' -> Core.exp', + decl : Core.decl' -> Core.decl'} + -> Core.decl -> Core.decl + val fold : {kind : Core.kind' * 'state -> 'state, con : Core.con' * 'state -> 'state, exp : Core.exp' * 'state -> 'state, |