Mercurial > urweb

comparison src/elab_print.sml @ 44:a9f3ce2d1b9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating functor applications
author Adam Chlipala <adamc@hcoop.net>
date Thu, 19 Jun 2008 17:04:08 -0400
parents b3fbbc6cb1e5
children 0a5c312de09a
comparison
equal deleted inserted replaced
43:d94c484337d0 44:a9f3ce2d1b9b
411 space, 411 space,
412 string "=>", 412 string "=>",
413 space, 413 space,
414 p_str env' str] 414 p_str env' str]
415 end 415 end
416 | StrApp (str1, str2) => box [p_str env str1,
417 string "(",
418 p_str env str2,
419 string ")"]
416 | StrError => string "<ERROR>" 420 | StrError => string "<ERROR>"
417 421
418 and p_file env file = 422 and p_file env file =
419 let 423 let
420 val (pds, _) = ListUtil.foldlMap (fn (d, env) => 424 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>