# HG changeset patch
# User William Morgan <bill@mrgn.org>
# Date 1376046992 25200
# Node ID 18ec9131f594f45793fbf4b1226fc0c722ea39fb
# Parent  0cf665278240a105c235d5ff7571644c3efa7ad4
one more compiler bug for mike.

diff -r 0cf665278240 -r 18ec9131f594 src/requsets.tp
--- 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"
 	}
 }