# HG changeset patch
# User William Morgan <bill@mrgn.org>
# Date 1376047047 25200
# Node ID cb5108f62f93350e4cda5ea5506abf3311d2163b
# Parent  18ec9131f594f45793fbf4b1226fc0c722ea39fb
moving file

diff -r 18ec9131f594 -r cb5108f62f93 src/requests.tp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/requests.tp	Fri Aug 09 04:17:27 2013 -0700
@@ -0,0 +1,28 @@
+#{
+	evalRequest <- :args {
+		#{
+			id <- "a"
+			arguments <- args
+			string <- {
+				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: ((guessRequest: "someId" "someProg") string) . "\n"
+	}
+}
diff -r 18ec9131f594 -r cb5108f62f93 src/requsets.tp
--- a/src/requsets.tp	Fri Aug 09 04:16:32 2013 -0700
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,28 +0,0 @@
-#{
-	evalRequest <- :args {
-		#{
-			id <- "a"
-			arguments <- args
-			string <- {
-				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: ((guessRequest: "someId" "someProg") string) . "\n"
-	}
-}