# HG changeset patch
# User William Morgan <bill@mrgn.org>
# Date 1376078138 25200
# Node ID a0e66161bde07d95c1a6b01c5195dae2764007cd
# Parent  566960135ea1ca4b096093f792c85c58f7f6a87d
for bug investigation

diff -r 566960135ea1 -r a0e66161bde0 src/requests.tp
--- a/src/requests.tp	Fri Aug 09 04:31:14 2013 -0700
+++ b/src/requests.tp	Fri Aug 09 12:55:38 2013 -0700
@@ -1,11 +1,21 @@
 #{
-	evalRequest <- :args {
+
+	quote <- :str {
+		"\"" . str . "\"" 
+	}
+
+	evalRequest <- :_id args {
 		#{
-			id <- "a"
-			arguments <- args
+			id <- _id
 			string <- {
-				temp <- ""//arguments fold: "" with: :acc el {acc . el}
-				"id" . id . "arguments" . temp
+//				idStr <- id// method not implemented
+//				idStr <- _id//method not implemented
+// 				idStr <- "a"//good
+//				idStr <- quote("id") . quote(id)//segfault
+//				idStr <- "\"id\":\"" . id . "\""// method not implemented
+//				argsStr <- ""//arguments fold: "" with: :acc el {acc . el}
+				argsStr <- "b"
+				"{" . idStr . "," . argsStr . "}"
 			}
 		}
 	}
@@ -13,7 +23,6 @@
 	guessRequest <- :id :prog {
 		#{
 			string <- {
-				//remove the second escaped quote, it will compile.
 				idStr <- "\"id\":\"" . id . "\""
 				progStr <- "\"program\":\"" . prog . "\""
 				"{" . idStr . "," . progStr . "}"
@@ -22,7 +31,7 @@
 	}
 
 	main <- {
-		//print: ((evalRequest: #[1 2 3]) string)
+		print: ((evalRequest: #[1 2 3]) string) . "\n"
 		print: ((guessRequest: "someId" "someProg") string) . "\n"
 	}
 }