Mercurial > repos > icfp2013
changeset 15:18ec9131f594
one more compiler bug for mike.
author | William Morgan <bill@mrgn.org> |
---|---|
date | Fri, 09 Aug 2013 04:16:32 -0700 |
parents | 0cf665278240 |
children | cb5108f62f93 |
files | src/requsets.tp |
diffstat | 1 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/requsets.tp Fri Aug 09 03:45:27 2013 -0700 +++ b/src/requsets.tp Fri Aug 09 04:16:32 2013 -0700 @@ -4,13 +4,25 @@ id <- "a" arguments <- args string <- { - temp <- arguments fold: "" with: :acc el {acc . el} + temp <- ""//arguments fold: "" with: :acc el {acc . el} "id" . id . "arguments" . temp } } } + guessRequest <- :id :prog { + #{ + string <- { + //remove the second escaped quote, it will compile. + idStr <- "\"id\"" //;\"" . id . "\"" + progStr <- "b" // "\"program\":\"" . prog . "\"" + idStr . progStr + } + } + } + main <- { - print: ((evalRequest: #[1 2 3]) string) + //print: ((evalRequest: #[1 2 3]) string) + print: ((guessRequest: "someId" "someProg") string) . "\n" } }