Changeset 21995

Timestamp:

08/21/08 19:50:46 (3 months ago)

Author:

ruoso

Message:

[smop] experimenting the alternative signature for postcircumfix:<( )>

Location:

v6/smop

Files:

• src/smop_s1p_code.sm0p (modified) (2 diffs)
• test/21_code.m0ld (modified) (2 diffs)

v6/smop/src/smop_s1p_code.sm0p

@@ -24 +24 @@
   SMOP__Object* mold;
   SMOP__Object* signature;
-  SMOP__Object* outer ;
+  SMOP__Object* outer;
 } SMOP__S1P__Code_struct;
 
@@ -128 +128 @@
     $void = $lexical_outer_container."STORE"($outer);
 
-    $void = $signature."BIND"($capture,$lexical);
+    my $actualcapture = $capture."positional"(0);
+
+    $void = $signature."BIND"($actualcapture,$lexical);
     my $frame_proto = ¢SMOP__Mold__Frame;
     my $frame = $frame_proto."new"($mold);

v6/smop/test/21_code.m0ld

@@ -17 +17 @@
     my $lexical;
 
-
     my $it_var_slot = $lexical."postcircumfix:{ }"("$_");
     my $it_var = $it_var_slot."FETCH"();
@@ -31 +30 @@
     $void = $interpreter."goto"($back);
 }));
-$void = $code1."postcircumfix:( )"("ok 1\n");
-$void = $code1."postcircumfix:( )"("ok 2\n");
-$void = $code1."postcircumfix:( )"();
+
+my $capture = ¢SMOP__S1P__Capturize."capturize"("ok 1\n");
+$void = $code1."postcircumfix:( )"($capture);
+$capture = ¢SMOP__S1P__Capturize."capturize"("ok 2\n");
+$void = $code1."postcircumfix:( )"($capture);
+$capture = ¢SMOP__S1P__Capturize."capturize"();
+$void = $code1."postcircumfix:( )"($capture);