Switch some things over to positional_delegate.

jnthn · jnthn · commit 51c43bf66738 · 2013-02-09T17:47:00.000+01:00
diff --git a/src/QAST/Node.nqp b/src/QAST/Node.nqp
@@ -1,11 +1,6 @@
 class QAST::Node {
     # For children.
-    has @!array
-		is parrot_vtable_handler('get_pmc_keyed_int')
-		is parrot_vtable_handler('set_pmc_keyed_int')
-		is parrot_vtable_handler('unshift_pmc')
-		is parrot_vtable_handler('push_pmc')
-		;
+    has @!array is positional_delegate;
 
     # For annotations, lazily allocated.
     has %!hash;
diff --git a/src/core/NQPCapture.pm b/src/core/NQPCapture.pm
@@ -1,10 +1,5 @@
 my class NQPCapture {
-    has @!array
-		is parrot_vtable_handler('get_pmc_keyed_int')
-		is parrot_vtable_handler('set_pmc_keyed_int')
-		is parrot_vtable_handler('unshift_pmc')
-		is parrot_vtable_handler('push_pmc')
-		;
+    has @!array is positional_delegate;
 
     has %!hash
 		is parrot_vtable_handler('get_pmc_keyed_str')
diff --git a/src/core/NQPMu.pm b/src/core/NQPMu.pm
@@ -87,11 +87,6 @@ my class NQPMu {
         0
     }
     
-    proto method at_pos($pos) is parrot_vtable('get_pmc_keyed_int') { * }
-    multi method at_pos(NQPMu:U $self: $pos) {
-        NQPMu
-    }
-    
     proto method at_key($key) is parrot_vtable('get_pmc_keyed_str') { * }
     multi method at_key(NQPMu:U $self: $key) {
         NQPMu

Original file line number	Diff line number	Diff line change
`@@ -87,11 +87,6 @@ my class NQPMu {`
`87`	`87`	`0`
`88`	`88`	`}`
`89`	`89`
`90`		`- proto method at_pos($pos) is parrot_vtable('get_pmc_keyed_int') { * }`
`91`		`- multi method at_pos(NQPMu:U $self: $pos) {`
`92`		`- NQPMu`
`93`		`- }`
`94`		`-`
`95`	`90`	`proto method at_key($key) is parrot_vtable('get_pmc_keyed_str') { * }`
`96`	`91`	`multi method at_key(NQPMu:U $self: $key) {`
`97`	`92`	`NQPMu`