Changeset 21656 for misc

Timestamp:

07/31/08 21:55:08 (5 months ago)

Author:

pmurias

Message:

[smop] assingment via = works

Location:

misc/elfish/elfX

Files:

• EmitSM0P.pm (modified) (1 diff)
• elfX (modified) (1 diff)

misc/elfish/elfX/EmitSM0P.pm

@@ -72 +72 @@
           '$SMOP__SLIME__CurrentFrame.move_capturize('~self.capturize($arguments,$id)~");\n" ~
           $ret ~ ': $continuation.$SMOP__ID__setr();' ~ "\n"
+      } elsif ($n.function eq 'infix:=') {
+        IRx1::Call.new('invocant',$n.capture.arguments[0],'method','STORE','capture',IRx1::Capture.new('arguments',[$n.capture.arguments[1]])).callback(self,$ret);
       } elsif ($n.function eq 'circumfix:( )') {
           $n.capture.arguments[0].callback(self,$ret);

misc/elfish/elfX/elfX

@@ -3576 +3576 @@
 ") . $ret) . "\:\ \$continuation\.\$SMOP__ID__setr\(\)\;") . "\
 ")})
+}elsif((($n->function() eq "infix\:\="))) {
+(do{IRx1::Call->new("invocant", $n->capture()->arguments()->[0], "method", "STORE", "capture", IRx1::Capture->new("arguments", [$n->capture()->arguments()->[1]]))->callback($self, $ret)})
 }elsif((($n->function() eq "circumfix\:\(\ \)"))) {
 (do{$n->capture()->arguments()->[0]->callback($self, $ret)})