Mercurial > urweb

diff src/core_print.sml @ 954:2a50da66ffd8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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,