Permalink
Browse files

Switch some things over to positional_delegate.

  • Loading branch information...
jnthn committed Feb 9, 2013
1 parent 6ad0c64 commit 51c43bf6673893f463cf587f0a6c30dd8d36ff27
Showing with 2 additions and 17 deletions.
  1. +1 −6 src/QAST/Node.nqp
  2. +1 −6 src/core/NQPCapture.pm
  3. +0 −5 src/core/NQPMu.pm
View
@@ -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;
View
@@ -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')
View
@@ -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

0 comments on commit 51c43bf

Please sign in to comment.