Mercurial > urweb

comparison src/expl_print.sml @ 193:8a70e2919e86

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Specialization of single-parameter datatypes
author Adam Chlipala <adamc@hcoop.net>
date Fri, 08 Aug 2008 17:55:51 -0400
parents aa54250f58ac
children 0343557355fc
comparison
equal deleted inserted replaced
192:9bbf4d383381 193:8a70e2919e86
343 string "=", 343 string "=",
344 space, 344 space,
345 p_list_sep (box [space, string "|", space]) 345 p_list_sep (box [space, string "|", space])
346 (fn (x, n, NONE) => if !debug then (string (x ^ "__" ^ Int.toString n)) 346 (fn (x, n, NONE) => if !debug then (string (x ^ "__" ^ Int.toString n))
347 else string x 347 else string x
348 | (x, _, SOME t) => box [if !debug then (string (x ^ "__" ^ Int.toString n)) 348 | (x, n, SOME t) => box [if !debug then (string (x ^ "__" ^ Int.toString n))
349 else string x, space, string "of", space, p_con env t]) 349 else string x, space, string "of", space, p_con env t])
350 cons] 350 cons]
351 end 351 end
352 352
353 fun p_sgn_item env (sgi, _) = 353 fun p_sgn_item env (sgi, _) =