allow other sigils for hard ref than $

TimToady · TimToady · commit e8e82b98afe2 · 2012-01-27T21:25:48.000-08:00
diff --git a/STD.pm6 b/STD.pm6
@@ -2410,13 +2410,13 @@ grammar P6 is STD {
 
     token desigilname {
         [
-        | <?before '$' >
+        | <?before <sigil> <sigil> > <VAR=variable> 
+        | <?before <sigil> >
             [ <?{ $*IN_DECL }> <.panic: "Cannot declare an indirect variable name"> ]?
             <variable> {
                 $*VAR = $<variable>;
-                self.check_variable($*VAR) if substr($*VAR,1,1) ne '$';
+                self.check_variable($*VAR);
             }
-        | <?before <[\@\%\&]> <sigil>* \w > <.panic: "Invalid hard reference syntax">
         | <longname>
         ]
     }
@@ -4800,7 +4800,7 @@ grammar Regex is STD {
     proto token regex_infix {*}
 
     # no such thing as ignored whitespace in a normal regex
-    token ws { <?> }
+    token ws { { note 'HUH?' } <?> }
 
     token normspace {
         <?before \s | '#'> [ :lang(%*LANG<MAIN>) <.ws> ]

Original file line number	Diff line number	Diff line change
`@@ -2410,13 +2410,13 @@ grammar P6 is STD {`
`2410`	`2410`
`2411`	`2411`	`token desigilname {`
`2412`	`2412`	`[`
`2413`		`- \| <?before '$' >`
	`2413`	`+ \| <?before <sigil> <sigil> > <VAR=variable>`
	`2414`	`+ \| <?before <sigil> >`
`2414`	`2415`	`[ <?{ $*IN_DECL }> <.panic: "Cannot declare an indirect variable name"> ]?`
`2415`	`2416`	`<variable> {`
`2416`	`2417`	`$*VAR = $<variable>;`
`2417`		`- self.check_variable($VAR) if substr($VAR,1,1) ne '$';`
	`2418`	`+ self.check_variable($*VAR);`
`2418`	`2419`	`}`
`2419`		`- \| <?before <[\@\%\&]> <sigil>* \w > <.panic: "Invalid hard reference syntax">`
`2420`	`2420`	`\| <longname>`
`2421`	`2421`	`]`
`2422`	`2422`	`}`
`@@ -4800,7 +4800,7 @@ grammar Regex is STD {`
`4800`	`4800`	`proto token regex_infix {*}`
`4801`	`4801`
`4802`	`4802`	`# no such thing as ignored whitespace in a normal regex`
`4803`		`- token ws { <?> }`
	`4803`	`+ token ws { { note 'HUH?' } <?> }`
`4804`	`4804`
`4805`	`4805`	`token normspace {`
`4806`	`4806`	`<?before \s \| '#'> [ :lang(%*LANG<MAIN>) <.ws> ]`