diff src/core_util.sig @ 482:9117a7bf229c

Especialize working reasonably well; need to add new closure representation pass
author Adam Chlipala <adamc@hcoop.net>
date Sun, 09 Nov 2008 11:53:52 -0500
parents ffa18975e661
children 685b41e85634
line wrap: on
line diff
--- a/src/core_util.sig	Sat Nov 08 16:47:04 2008 -0500
+++ b/src/core_util.sig	Sun Nov 09 11:53:52 2008 -0500
@@ -175,6 +175,12 @@
                 bind : 'context * binder -> 'context}
                -> 'context -> Core.file -> Core.file
 
+    val map : {kind : Core.kind' -> Core.kind',
+               con : Core.con' -> Core.con',
+               exp : Core.exp' -> Core.exp',
+               decl : Core.decl' -> Core.decl'}
+              -> Core.file -> Core.file
+
     val fold : {kind : Core.kind' * 'state -> 'state,
                 con : Core.con' * 'state -> 'state,
                 exp : Core.exp' * 'state -> 'state,