Fix calling methods with arguments

sorear · Jul 14, 2010 · d87ab4c · d87ab4c
1 parent a9d43b1
commit d87ab4c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Niecza/Actions.pm b/Niecza/Actions.pm
@@ -297,7 +297,7 @@ sub methodop { my ($cl, $M) = @_;
     $r{quote} = $M->{quote}{_ast} if $M->{quote};
     $r{ref}   = $M->{variable}{_ast}{term} if $M->{variable};
 
-    $r{args}  = $M->{args}[0]{_ast} if $M->{args}[0];
+    $r{args}  = $M->{args}[0]{_ast}[0] if $M->{args}[0];
     $r{args}  = $M->{arglist}[0]{_ast} if $M->{arglist}[0];
 
     $M->{_ast} = \%r;