Mercurial > urweb
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 |