Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
953:301530da2062 | 954:2a50da66ffd8 |
---|---|
444 space, | 444 space, |
445 p_list (p_exp env) es, | 445 p_list (p_exp env) es, |
446 string ")[", | 446 string ")[", |
447 p_exp env e, | 447 p_exp env e, |
448 string "]"] | 448 string "]"] |
449 | ETailCall (n, es, e, _, _) => box [string "Tail(", | |
450 p_enamed env n, | |
451 string ",", | |
452 space, | |
453 p_list (p_exp env) es, | |
454 string ")[", | |
455 p_exp env e, | |
456 string "]"] | |
449 | 457 |
450 | EKAbs (x, e) => box [string x, | 458 | EKAbs (x, e) => box [string x, |
451 space, | 459 space, |
452 string "==>", | 460 string "==>", |
453 space, | 461 space, |