# HG changeset patch
# User William Morgan <bill@mrgn.org>
# Date 1376081625 25200
# Node ID 5a025e6c6f89b56296c05a5384895aa91e5db029
# Parent  a0e66161bde07d95c1a6b01c5195dae2764007cd
simple parallel requests limit test

diff -r a0e66161bde0 -r 5a025e6c6f89 src/requests.tp
--- a/src/requests.tp	Fri Aug 09 12:55:38 2013 -0700
+++ b/src/requests.tp	Fri Aug 09 13:53:45 2013 -0700
@@ -4,14 +4,12 @@
 		"\"" . str . "\"" 
 	}
 
-	evalRequest <- :_id args {
+	evalRequest <- :id args {
 		#{
-			id <- _id
+//			id <- _id
 			string <- {
-//				idStr <- id// method not implemented
-//				idStr <- _id//method not implemented
 // 				idStr <- "a"//good
-//				idStr <- quote("id") . quote(id)//segfault
+				idStr <- quote("id") . quote(id)//segfault
 //				idStr <- "\"id\":\"" . id . "\""// method not implemented
 //				argsStr <- ""//arguments fold: "" with: :acc el {acc . el}
 				argsStr <- "b"
@@ -31,7 +29,7 @@
 	}
 
 	main <- {
-		print: ((evalRequest: #[1 2 3]) string) . "\n"
+		print: ((evalRequest: "someId" #[1 2 3]) string) . "\n"
 		print: ((guessRequest: "someId" "someProg") string) . "\n"
 	}
 }