# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1311826017 25200
# Node ID db30bda91aad342c0cc5e9f0292ceb73652e94ab
# Parent  a658c17148cbfad8d3bc0d78d0738dea1d770ed0
Cleanup grammar comment in new parser

diff -r a658c17148cb -r db30bda91aad parse.rhope
--- 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"]
 		{