make ints_to_string a method, so that it can be overridden in subclasses

moritz · moritz · commit 9647ef9ffa77 · 2011-11-11T14:09:46.000+01:00
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -6,7 +6,7 @@ class HLL::Actions {
         nqp::atkey($res, 0);
     }
 
-    our sub ints_to_string($ints) {
+    method ints_to_string($ints) {
         if pir::does($ints, 'array') {
             my $result := '';
             for $ints {
@@ -144,11 +144,11 @@ class HLL::Actions {
     method quote_escape:sym<esc>($/) { make "\c[27]"; }
 
     method quote_escape:sym<hex>($/) {
-        make ints_to_string( $<hexint> ?? $<hexint> !! $<hexints><hexint> );
+        make self.ints_to_string( $<hexint> ?? $<hexint> !! $<hexints><hexint> );
     }
 
     method quote_escape:sym<oct>($/) {
-        make ints_to_string( $<octint> ?? $<octint> !! $<octints><octint> );
+        make self.ints_to_string( $<octint> ?? $<octint> !! $<octints><octint> );
     }
 
     method quote_escape:sym<chr>($/) {

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@ class HLL::Actions {`
`6`	`6`	`nqp::atkey($res, 0);`
`7`	`7`	`}`
`8`	`8`
`9`		`- our sub ints_to_string($ints) {`
	`9`	`+ method ints_to_string($ints) {`
`10`	`10`	`if pir::does($ints, 'array') {`
`11`	`11`	`my $result := '';`
`12`	`12`	`for $ints {`
`@@ -144,11 +144,11 @@ class HLL::Actions {`
`144`	`144`	`method quote_escape:sym<esc>($/) { make "\c[27]"; }`
`145`	`145`
`146`	`146`	`method quote_escape:sym<hex>($/) {`
`147`		`- make ints_to_string( $<hexint> ?? $<hexint> !! $<hexints><hexint> );`
	`147`	`+ make self.ints_to_string( $<hexint> ?? $<hexint> !! $<hexints><hexint> );`
`148`	`148`	`}`
`149`	`149`
`150`	`150`	`method quote_escape:sym<oct>($/) {`
`151`		`- make ints_to_string( $<octint> ?? $<octint> !! $<octints><octint> );`
	`151`	`+ make self.ints_to_string( $<octint> ?? $<octint> !! $<octints><octint> );`
`152`	`152`	`}`
`153`	`153`
`154`	`154`	`method quote_escape:sym<chr>($/) {`