Mercurial > urweb

comparison src/source_print.sml @ 109:813e5a52063d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove closure conversion in favor of zany fun with modules, which also replaces 'page'
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 10:17:06 -0400
parents f0f59e918cac
children e3041657d653
comparison
equal deleted inserted replaced
108:f59553dc1b6a 109:813e5a52063d
416 space, 416 space,
417 string "constraints", 417 string "constraints",
418 space, 418 space,
419 p_list_sep (string ".") string (m :: ms)] 419 p_list_sep (string ".") string (m :: ms)]
420 420
421 | DPage e => box [string "page", 421 | DExport str => box [string "export",
422 space, 422 space,
423 p_exp e] 423 p_str str]
424 424
425 and p_str (str, _) = 425 and p_str (str, _) =
426 case str of 426 case str of
427 StrConst ds => box [string "struct", 427 StrConst ds => box [string "struct",
428 newline, 428 newline,