From 95d278b9b8e9c314541b8251a34a32fe6deeb896 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 13 Jul 2008 11:43:57 -0400 Subject: Starting with closure links --- src/core_util.sig | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'src/core_util.sig') diff --git a/src/core_util.sig b/src/core_util.sig index 423b93b4..5629e8fa 100644 --- a/src/core_util.sig +++ b/src/core_util.sig @@ -121,6 +121,12 @@ structure Decl : sig exp : Core.exp' * 'state -> 'state, decl : Core.decl' * 'state -> 'state} -> 'state -> Core.decl -> 'state + + val foldMap : {kind : Core.kind' * 'state -> Core.kind' * 'state, + con : Core.con' * 'state -> Core.con' * 'state, + exp : Core.exp' * 'state -> Core.exp' * 'state, + decl : Core.decl' * 'state -> Core.decl' * 'state} + -> 'state -> Core.decl -> Core.decl * 'state end structure File : sig @@ -151,6 +157,12 @@ structure File : sig exp : Core.exp' * 'state -> 'state, decl : Core.decl' * 'state -> 'state} -> 'state -> Core.file -> 'state + + val foldMap : {kind : Core.kind' * 'state -> Core.kind' * 'state, + con : Core.con' * 'state -> Core.con' * 'state, + exp : Core.exp' * 'state -> Core.exp' * 'state, + decl : Core.decl' * 'state -> Core.decl' * 'state} + -> 'state -> Core.file -> Core.file * 'state end end -- cgit v1.2.3