Mercurial > urweb

diff src/core_print.sml @ 487:33d5bd69da00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get threadedBlog to work
author Adam Chlipala <adamc@hcoop.net>
date Tue, 11 Nov 2008 11:49:51 -0500
parents 9117a7bf229c
children ae03d09043c1
line wrap: on
line diff
--- a/src/core_print.sml	Sun Nov 09 18:19:47 2008 -0500
+++ b/src/core_print.sml	Tue Nov 11 11:49:51 2008 -0500
@@ -227,7 +227,7 @@
                                    string "(",
                                    p_list (p_exp env) es,
                                    string "))"]
-      | EApp (e1, e2) => parenIf par (box [p_exp env e1,
+      | EApp (e1, e2) => parenIf par (box [p_exp' true env e1,
                                            space,
                                            p_exp' true env e2])
       | EAbs (x, t, _, e) => parenIf par (box [string "fn",