Mercurial > urweb

comparison src/core_print.sml @ 482:9117a7bf229c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Especialize working reasonably well; need to add new closure representation pass
author Adam Chlipala <adamc@hcoop.net>
date Sun, 09 Nov 2008 11:53:52 -0500
parents 40c737913075
children 33d5bd69da00
comparison
equal deleted inserted replaced
481:2280193bf298 482:9117a7bf229c
480 space, 480 space,
481 p_enamed env n, 481 p_enamed env n,
482 space, 482 space,
483 string "as", 483 string "as",
484 space, 484 space,
485 p_con env (#2 (E.lookupENamed env n))] 485 (p_con env (#2 (E.lookupENamed env n))
486 handle E.UnboundNamed _ => string "UNBOUND")]
486 | DTable (x, n, c, s) => box [string "table", 487 | DTable (x, n, c, s) => box [string "table",
487 space, 488 space,
488 p_named x n, 489 p_named x n,
489 space, 490 space,
490 string "as", 491 string "as",