Changeset 18958
- Timestamp:
- 11/28/07 20:30:11 (14 months ago)
- Location:
- v6/v6-KindaPerl6
- Files:
-
- 4 modified
-
compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Term.pm (modified) (1 diff)
-
compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/Container.pm (modified) (1 diff)
-
src/KindaPerl6/Grammar/Term.pm (modified) (1 diff)
-
src/KindaPerl6/Runtime/Perl5/Container.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
v6/v6-KindaPerl6/compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Term.pm
r18957 r18958 620 620 return ( 621 621 Call->new( 622 'invocant' => Call->new( 'invocant' => Proto->new( 'name' => 'ArrayContainer', ), 'hyper' => '', 'method' => 'new', 'arguments' => [], ),622 'invocant' => Proto->new( 'name' => 'Array', ), 623 623 'hyper' => '', 624 'method' => ' push',625 'arguments' => ${ $MATCH->{'exp_seq'} },624 'method' => 'new', 625 'arguments' => [ Lit::Array->new( 'array' => ${ $MATCH->{'exp_seq'} }, ) ], 626 626 ) 627 627 ); -
v6/v6-KindaPerl6/compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/Container.pm
r18952 r18958 266 266 267 267 if ( exists $p->{_roles}{array_container} ) { 268 #warn " List: ", ::DISPATCH( $p, "perl" )->{_value};268 #warn "STORE \@Array to \@Array: ", ::DISPATCH( $p, "perl" )->{_value}; 269 269 my $list = $p->{_value}{cell}; # ::DISPATCH( $p, 'FETCH' ); 270 270 #warn "List: ", ::DISPATCH( $list, "perl" )->{_value}; -
v6/v6-KindaPerl6/src/KindaPerl6/Grammar/Term.pm
r18957 r18958 91 91 { return 92 92 ::Call( 93 'invocant' => 94 ::Call( 95 'invocant' => ::Proto( name => 'ArrayContainer' ), 96 'hyper' => '', 97 'method' => 'new', 98 'arguments' => [ ] 99 ), 93 'invocant' => ::Proto( name => 'Array' ), 100 94 'hyper' => '', 101 'method' => ' push',102 'arguments' => $$<exp_seq>,95 'method' => 'new', 96 'arguments' => [ ::Lit::Array( 'array' => $$<exp_seq> ) ] 103 97 ); 104 98 } -
v6/v6-KindaPerl6/src/KindaPerl6/Runtime/Perl5/Container.pm
r18952 r18958 266 266 267 267 if ( exists $p->{_roles}{array_container} ) { 268 #warn " List: ", ::DISPATCH( $p, "perl" )->{_value};268 #warn "STORE \@Array to \@Array: ", ::DISPATCH( $p, "perl" )->{_value}; 269 269 my $list = $p->{_value}{cell}; # ::DISPATCH( $p, 'FETCH' ); 270 270 #warn "List: ", ::DISPATCH( $list, "perl" )->{_value};
