--- a/parse.rhope	Wed Jul 27 21:06:35 2011 -0700
+++ b/parse.rhope	Wed Jul 27 21:06:57 2011 -0700
@@ -278,14 +278,20 @@
 	Print[["Body: Depth="]Append[String[depth]]]
 	If[[depth] > [0]]
 	{
-		//symbol list = Symbol [List Separator symbol list]
-		//value = String Literal | Number Literal | List Literal | Symbol | Block Reference | expression
-		//call = [Args Begin arg list Args End]Symbol[Args Begin arg list Args End] | (value | Arg Placeholder) Call Separator Symbol
-		//arg list = value | Arg Placeholder [List Separator arg list]
-		//block = Block Begin [expressions] Block End
-		//blocks = block [blocks]
-		//expressions = expression [expressions]
-		//expression = [symbol list Assignment] call | value blocks | Newline
+		/*
+		symbol list = Symbol [List Separator symbol list]
+		value = String Literal | Number Literal | List Literal | Symbol | Block Reference | expression
+		call = 
+			Args Begin arg list Args End Symbol[Args Begin [arg list] Args End] 
+			| Symbol Args Begin [arg list] Args End
+			| (value | Arg Placeholder) Call Separator Symbol[Args Begin [arg list] Args End]
+		arg list = value | Arg Placeholder [List Separator arg list]
+		block = Block Begin [expressions] Block End
+		blocks = block [blocks]
+		expressions = expression [expressions]
+		expression = [symbol list Assignment] (call | value) blocks
+		
+		*/
 		token <- [tokens]Index[current]
 		[token]Type Match["Block Begin"]
 		{