Mercurial > urweb

comparison src/source_print.sml @ 1868:d6b0ee53dc93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get -root working properly again
author Adam Chlipala <adam@chlipala.net>
date Thu, 26 Sep 2013 16:22:06 -0400
parents 1aa9629e3a4c
children 799be3911ce3
comparison
equal deleted inserted replaced
1867:216a3a67ebe3 1868:d6b0ee53dc93
569 string x, 569 string x,
570 space, 570 space,
571 string "=", 571 string "=",
572 space, 572 space,
573 p_sgn sgn] 573 p_sgn sgn]
574 | DStr (x, NONE, _, str) => box [string "structure", 574 | DStr (x, NONE, _, str, _) => box [string "structure",
575 space, 575 space,
576 string x, 576 string x,
577 space, 577 space,
578 string "=", 578 string "=",
579 space, 579 space,
580 p_str str] 580 p_str str]
581 | DStr (x, SOME sgn, _, str) => box [string "structure", 581 | DStr (x, SOME sgn, _, str, _) => box [string "structure",
582 space, 582 space,
583 string x, 583 string x,
584 space, 584 space,
585 string ":", 585 string ":",
586 space, 586 space,
587 p_sgn sgn, 587 p_sgn sgn,
588 space, 588 space,
589 string "=", 589 string "=",
590 space, 590 space,
591 p_str str] 591 p_str str]
592 | DFfiStr (x, sgn, _) => box [string "extern", 592 | DFfiStr (x, sgn, _) => box [string "extern",
593 space, 593 space,
594 string "structure", 594 string "structure",
595 space, 595 space,
596 string x, 596 string x,