comparison src/specialize.sig @ 315:e21d0dddda09

Unpoly non-recursive function
author Adam Chlipala <adamc@hcoop.net>
date Thu, 11 Sep 2008 09:36:47 -0400
parents 8a70e2919e86
children
comparison
equal deleted inserted replaced
314:a07f476d9b61 315:e21d0dddda09
23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
25 * POSSIBILITY OF SUCH DAMAGE. 25 * POSSIBILITY OF SUCH DAMAGE.
26 *) 26 *)
27 27
28 (* Simplify a Core program by repeating polymorphic definitions *) 28 (* Simplify a Core program by repeating polymorphic definitions of datatypes *)
29 29
30 signature SPECIALIZE = sig 30 signature SPECIALIZE = sig
31 31
32 val specialize : Core.file -> Core.file 32 val specialize : Core.file -> Core.file
33 33