Mercurial > urweb

diff src/elab_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 b2d752455182
line wrap: on
line diff
--- a/src/elab_print.sml	Thu Jul 31 10:31:30 2008 -0400
+++ b/src/elab_print.sml	Thu Jul 31 10:44:52 2008 -0400
@@ -215,6 +215,7 @@
     case p of
         PWild => string "_"
       | PVar s => string s
+      | PPrim p => Prim.p_t p
       | PCon (pc, NONE) => p_patCon env pc
       | PCon (pc, SOME p) => parenIf par (box [p_patCon env pc,
                                                space,