Mercurial > urweb
diff src/core_print.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 | 8e540df3294d |
children | dfe34fad749d |
line wrap: on
line diff
--- a/src/core_print.sml Thu Sep 17 14:57:38 2009 -0400 +++ b/src/core_print.sml Thu Sep 17 16:35:11 2009 -0400 @@ -446,6 +446,14 @@ string ")[", p_exp env e, string "]"] + | ETailCall (n, es, e, _, _) => box [string "Tail(", + p_enamed env n, + string ",", + space, + p_list (p_exp env) es, + string ")[", + p_exp env e, + string "]"] | EKAbs (x, e) => box [string x, space,