Mercurial > urweb

diff src/source_print.sml @ 173:8221b95cc24c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Patterns for int and string constants
author Adam Chlipala <adamc@hcoop.net>
date Thu, 31 Jul 2008 10:44:52 -0400
parents c7a6e6dbc318
children 7ee424760d2f
line wrap: on
line diff
--- a/src/source_print.sml	Thu Jul 31 10:31:30 2008 -0400
+++ b/src/source_print.sml	Thu Jul 31 10:44:52 2008 -0400
@@ -166,6 +166,7 @@
     case p of
         PWild => string "_"
       | PVar s => string s
+      | PPrim p => Prim.p_t p
       | PCon (ms, x, NONE) => p_list_sep (string ".") string (ms @ [x])
       | PCon (ms, x, SOME p) => parenIf par (box [p_list_sep (string ".") string (ms @ [x]),
                                                   space,