Mercurial > urweb
comparison src/core.sml @ 954:2a50da66ffd8
Basic tail recursion introduction seems to be working
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 17 Sep 2009 16:35:11 -0400 |
parents | ed06e25c70ef |
children | dfe34fad749d |
comparison
equal
deleted
inserted
replaced
953:301530da2062 | 954:2a50da66ffd8 |
---|---|
114 | EClosure of int * exp list | 114 | EClosure of int * exp list |
115 | 115 |
116 | ELet of string * con * exp * exp | 116 | ELet of string * con * exp * exp |
117 | 117 |
118 | EServerCall of int * exp list * exp * con * con | 118 | EServerCall of int * exp list * exp * con * con |
119 | ETailCall of int * exp list * exp * con * con | |
119 | 120 |
120 withtype exp = exp' located | 121 withtype exp = exp' located |
121 | 122 |
122 datatype effect = datatype Export.effect | 123 datatype effect = datatype Export.effect |
123 datatype export_kind = datatype Export.export_kind | 124 datatype export_kind = datatype Export.export_kind |