Changeset 22933 for v6

Show
Ignore:
Timestamp:
11/08/08 23:06:19 (2 months ago)
Author:
pmurias
Message:

[mildew] S1P::IO.print no longer FETCHes it's arguments t/binding.t passes

Location:
v6
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • v6/mildew/mildew

    r22929 r22933  
    256256            my @positional = $positional ? $positional->emit_m0ld : (); 
    257257            AST::Call->new( 
    258                 identifier => string 'postcircumfix:'.$postcircumfix->{FIRST}.' '.$postcircumfix->{LAST}, 
     258                identifier => string 'postcircumfix:'.$postcircumfix->{sym}[0].' '.$postcircumfix->{sym}[1], 
    259259                capture => AST::Capture->new(invocant=>FETCH($noun),positional=>[@positional]), 
    260260            ); 
    … …  
    353353} 
    354354 
    355 print dump_match('comp_unit'=>$m,{vertical=>1,mark_arrays=>1,visit_twice=>1}),"\n" if $debug; 
     355#print dump_match('comp_unit'=>$m,{vertical=>1,mark_arrays=>1,visit_twice=>1}),"\n" if $debug; 
    356356print "#################\n" if $debug; 
    357357print Dump($m->item) if $debug; 

  • v6/mildew/t/binding.t

    r22650 r22933  
    1 $OUT.print("1..1\n"); 
     1$OUT.print("1..1\n".FETCH); 
    22my $foo; 
    33my $bar; 
    44$bar := $foo; 
    55$foo = "ok 1\n"; 
    6 $OUT.print($bar); 
     6$OUT.print($bar.FETCH); 

  • v6/smop/src/s1p_io.ri

    r22713 r22933  
    1818        SMOP__Object* obj = SMOP__NATIVE__capture_positional(interpreter,capture,i); 
    1919 
    20         obj = SMOP_DISPATCH(interpreter,SMOP_RI(obj),SMOP__ID__FETCH,SMOP__NATIVE__capture_create(interpreter,obj,NULL,NULL)); 
     20        //obj = SMOP_DISPATCH(interpreter,SMOP_RI(obj),SMOP__ID__FETCH,SMOP__NATIVE__capture_create(interpreter,obj,NULL,NULL)); 
    2121        if (SMOP_RI(obj) == (SMOP__ResponderInterface*)SMOP__S1P__Str) { 
    2222            printf("%s",SMOP__S1P__Str_c_str(obj));