[svn:parrot] r16787 - trunk/languages/tcl/src/grammar/expr

[mdiep]

Author: mdiep
Date: Thu Jan 25 00:05:06 2007
New Revision: 16787

Modified:
   trunk/languages/tcl/src/grammar/expr/expression.pg

Log:
[tcl]: Fix things on Windows (I hope)

Modified: trunk/languages/tcl/src/grammar/expr/expression.pg
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/expression.pg  (original)
+++ trunk/languages/tcl/src/grammar/expr/expression.pg  Thu Jan 25 00:05:06 2007
@@ -8,7 +8,7 @@
 token ws { \h* }
 
 token program {
-   | <[;\n\r\t\ ]>* <command> [ <?ws> <[\n;]> <?ws> <command>? ]*
+   | <[;\n\r\t\ ]>* <command> [ <?ws> <[\r\n;]> <?ws> <command>? ]*
    | $<empty>:=[^\s*$]
 }
 
@@ -42,7 +42,7 @@
 
 token command_substitution {
     \[ \]
-  | \[ <[;\n\r\t\ ]>* <subcommand> [ <?ws> <[\n;]> <?ws> <subcommand>? ]* \]
+  | \[ <[;\n\r\t\ ]>* <subcommand> [ <?ws> <[\r\n;]> <?ws> <subcommand>? ]* \]
   | \[ <error: missing close-bracket>
 }