Mercurial > urweb

comparison 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
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,