diff src/cjr_print.sml @ 1537:e627bab3eda7

Fix list urlification
author Adam Chlipala <adam@chlipala.net>
date Sun, 14 Aug 2011 16:46:36 -0400
parents a71223513c77
children dc4c61363d0a
line wrap: on
line diff
--- a/src/cjr_print.sml	Sun Aug 14 09:31:53 2011 -0400
+++ b/src/cjr_print.sml	Sun Aug 14 16:46:36 2011 -0400
@@ -832,7 +832,7 @@
                                               space,
                                               string "+=",
                                               space,
-                                              string "3, (*request == '/' ? *request++ = 0 : 0), NULL) : ((!strncmp(*request, \"Cons\", 4) && ((*request)[4] == 0 ",
+                                              string "3, ((*request)[0] == '/' ? *request++ = 0 : 0), NULL) : ((!strncmp(*request, \"Cons\", 4) && ((*request)[4] == 0 ",
                                               string "|| (*request)[4] == '/')) ? (*request",
                                               space,
                                               string "+=",