Mercurial > urweb

comparison src/mono_print.sml @ 1280:3d06e0f7a6f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial version of equalKnown working for secret
author Adam Chlipala <adam@chlipala.net>
date Tue, 27 Jul 2010 11:42:30 -0400
parents a2cd6664f57f
children 60e19545841b
comparison
equal deleted inserted replaced
1279:4c367c8f5b2d 1280:3d06e0f7a6f3
427 space, 427 space,
428 p_exp env e] 428 p_exp env e]
429 | PolSequence e => box [string "sendOwnIds", 429 | PolSequence e => box [string "sendOwnIds",
430 space, 430 space,
431 p_exp env e] 431 p_exp env e]
432 | PolEqualKnown {table = tab, field = nm} => box [string "equalKnown[",
433 string nm,
434 string "]",
435 space,
436 p_exp env tab]
432 437
433 fun p_decl env (dAll as (d, _) : decl) = 438 fun p_decl env (dAll as (d, _) : decl) =
434 case d of 439 case d of
435 DDatatype x => box [string "datatype", 440 DDatatype x => box [string "datatype",
436 space, 441 space,