diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-11-21 15:43:24 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-11-21 15:43:24 -0500 |
| commit | 4f2c619bb0971153c518f120c8911ce3a94f783d (patch) | |
| tree | dce4ca25e55d3b9903a007859753068db4756515 /src/cjr_print.sml | |
| parent | 61c8fdf76c28f65b8b483f68d2d1f5597fdf58ce (diff) | |
Fix a bug in C list unurlification
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index e440a53d..99b42657 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -861,7 +861,7 @@ fun unurlify fromClient env (t, loc) = space, string "+=", space, - string "3, NULL) : ((!strncmp(request, \"Cons\", 4) && (request[4] == 0 ", + string "3, (*request == '/' ? *request++ = 0 : 0), NULL) : ((!strncmp(request, \"Cons\", 4) && (request[4] == 0 ", string "|| request[4] == '/')) ? (request", space, string "+=", @@ -895,7 +895,7 @@ fun unurlify fromClient env (t, loc) = newline, string ":", space, - string ("(uw_error(ctx, FATAL, \"Error unurlifying list\"), NULL))));"), + string ("(uw_error(ctx, FATAL, \"Error unurlifying list: %s\", request), NULL))));"), newline], string "}", newline, |