[svn] r6231: nemerle/trunk/ncc: parsing/Lexer.n testsuite/positive/preprocessor.n

[nazgul]

Log:
Fix / sign during preprocessor directive parsing

Author: nazgul
Date: Fri May  5 20:12:02 2006
New Revision: 6231

Modified:
   nemerle/trunk/ncc/parsing/Lexer.n
   nemerle/trunk/ncc/testsuite/positive/preprocessor.n

Modified: nemerle/trunk/ncc/parsing/Lexer.n
==============================================================================
--- nemerle/trunk/ncc/parsing/Lexer.n	(original)
+++ nemerle/trunk/ncc/parsing/Lexer.n	Fri May  5 20:12:02 2006
@@ -872,9 +872,12 @@
             _ = read ();
             match (comment_beginning ()) {
               | '/' => 
+                if (eating_now > 0) loop (false)
+                else {
                 pendingChar = '/';
                 isPendingChar = true;
                 true
+                }
                   
               | _ => loop (false)
             }

Modified: nemerle/trunk/ncc/testsuite/positive/preprocessor.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/preprocessor.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/preprocessor.n	Fri May  5 20:12:02 2006
@@ -65,7 +65,11 @@
   }
 }
 
-
+#if foobar
+      _ = $ "$lit [$(LitForAtom (lit.atom))/$v] ==> $formula [$(clause [1])]"
+#else
+()
+#endif