allow TCLish -foo => bar form

TimToady · TimToady · commit 942bb1cfc5bf · 2012-09-10T10:02:04.000-07:00
diff --git a/STD_P5.pm6 b/STD_P5.pm6
@@ -823,7 +823,7 @@ token termish {
     }
 }
 
-token p5term:fatarrow           { <fatarrow> }
+token p5term:fatkey             { <fatkey> }
 
 token p5term:variable           { <variable>
 				    [
@@ -843,8 +843,8 @@ token p5term:value              { <value=p5value> }
 token p5term:capterm            { <capterm> }
 token p5term:statement_prefix   { <statement_prefix=p5statement_prefix> }
 
-token fatarrow {
-    <key=identifier> \h* '=>' <.ws> <val=EXPR(item %assignment)>
+token fatkey {
+    '-'?<key=identifier> <?before \h* '=>' >
 }
 
 # Most of these special variable rules are there simply to catch old p5 brainos

Original file line number	Diff line number	Diff line change
`@@ -823,7 +823,7 @@ token termish {`
`823`	`823`	`}`
`824`	`824`	`}`
`825`	`825`
`826`		`-token p5term:fatarrow { <fatarrow> }`
	`826`	`+token p5term:fatkey { <fatkey> }`
`827`	`827`
`828`	`828`	`token p5term:variable { <variable>`
`829`	`829`	`[`
`@@ -843,8 +843,8 @@ token p5term:value { <value=p5value> }`
`843`	`843`	`token p5term:capterm { <capterm> }`
`844`	`844`	`token p5term:statement_prefix { <statement_prefix=p5statement_prefix> }`
`845`	`845`
`846`		`-token fatarrow {`
`847`		`- <key=identifier> \h* '=>' <.ws> <val=EXPR(item %assignment)>`
	`846`	`+token fatkey {`
	`847`	`+ '-'?<key=identifier> <?before \h* '=>' >`
`848`	`848`	`}`
`849`	`849`
`850`	`850`	`# Most of these special variable rules are there simply to catch old p5 brainos`