summaryrefslogtreecommitdiff
path: root/src/core_util.sig
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-07-13 11:43:57 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-07-13 11:43:57 -0400
commit95d278b9b8e9c314541b8251a34a32fe6deeb896 (patch)
treef0f262173a66272d9d91248844f2facc40cc65a2 /src/core_util.sig
parent3316f3c317e587a5fc2ecf38f061a72b48e3b94e (diff)
Starting with closure links
Diffstat (limited to 'src/core_util.sig')
-rw-r--r--src/core_util.sig12
1 files changed, 12 insertions, 0 deletions
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