Mercurial > repos > rhope

diff parse.rhope @ 165:47ab97730865

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a couple of issues in networking lib
author Mike Pavone <pavone@retrodev.com>
date Thu, 10 Mar 2011 04:15:37 +0000
parents 386f4a874821
children db30bda91aad
line wrap: on
line diff
--- a/parse.rhope	Fri Jan 07 03:19:26 2011 -0500
+++ b/parse.rhope	Thu Mar 10 04:15:37 2011 +0000
@@ -619,9 +619,10 @@
 
 Parse[tokens:out]
 {
-	[tokens]First
+	ftokens <- Filter[tokens, NotComment[?]]
+	[ftokens]First
 	{
-		out <- Top Level[Filter[tokens, NotComment[?]], ~, ()]
+		out <- Top Level[ftokens, ~, ()]
 	}{
 		out <- ()
 	}