Implement <-> (lambda that makes things rw), which gets S04-statement…

…s/for.t passing again.
rakudo · Feb 11, 2009 · bb2cdb7 · bb2cdb7
1 parent c66322e
commit bb2cdb7
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 0 deletions.
diff --git a/src/classes/Signature.pir b/src/classes/Signature.pir
@@ -149,6 +149,25 @@ Ensures that if there is no explicit invocant, we add one.
 .end
 
 
+=item !make_parameters_rw
+
+Makes all parameters have readtype rw (used to implement e.g. <->).
+
+=cut
+
+.sub '!make_parameters_rw' :method
+    .local pmc params, it, param
+    params = self.'params'()
+    it = iter params
+  it_loop:
+    unless it goto it_loop_end
+    param = shift it
+    param['readtype'] = 'rw'
+    goto it_loop
+  it_loop_end:
+.end
+
+
 =item params
 
 Get the array of parameter describing hashes.

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -324,6 +324,16 @@ method pblock($/) {
         $block[0].push(
             PAST::Op.new( :pasttype('call'), :name('!SIGNATURE_BIND') )
         );
+        if $<lambda>[0] eq '<->' {
+            $block.loadinit().push(PAST::Op.new(
+                :pasttype('callmethod'),
+                :name('!make_parameters_rw'),
+                PAST::Var.new(
+                    :name('signature'),
+                    :scope('register')
+                )
+            ));
+        }
     }
     make $block;
 }