fix endargs wrt whitespace, diakopter++

TimToady · TimToady · commit e20e12932dba · 2012-08-08T21:02:00.000-07:00
diff --git a/STD.pm6 b/STD.pm6
@@ -4213,7 +4213,7 @@ grammar P6 is STD {
         | <?before <stopper> >
         | <?before '!!'> <?{ $*GOAL eq '!!' }>
         | <?before '{' | <lambda> > <?{ ($*GOAL eq '{' or $*GOAL eq 'endargs') and @*MEMOS[$¢.pos]<ws> }>
-        | <?{ $*GOAL eq 'endargs' and @*MEMOS[$¢.pos]<endargs> }>
+        | <?{ $*GOAL eq 'endargs' and @*MEMOS[@*MEMOS[$¢.pos]<ws>//$¢.pos]<endargs> }>
         ]
     }
 

Original file line number	Diff line number	Diff line change
`@@ -4213,7 +4213,7 @@ grammar P6 is STD {`
`4213`	`4213`	`\| <?before <stopper> >`
`4214`	`4214`	`\| <?before '!!'> <?{ $*GOAL eq '!!' }>`
`4215`	`4215`	`\| <?before '{' \| <lambda> > <?{ ($GOAL eq '{' or $GOAL eq 'endargs') and @*MEMOS[$¢.pos]<ws> }>`
`4216`		`- \| <?{ $GOAL eq 'endargs' and @MEMOS[$¢.pos]<endargs> }>`
	`4216`	`+ \| <?{ $GOAL eq 'endargs' and @MEMOS[@*MEMOS[$¢.pos]<ws>//$¢.pos]<endargs> }>`
`4217`	`4217`	`]`
`4218`	`4218`	`}`
`4219`	`4219`