Unbreak nonvoid calls

sorear · Jul 3, 2010 · 1f6a17f · 1f6a17f
1 parent d51c2eb
commit 1f6a17f
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 14 deletions.
diff --git a/Niecza/Actions.pm b/Niecza/Actions.pm
@@ -286,7 +286,7 @@ sub insn__S_call_method { my ($cl, $M) = @_;
 }
 
 sub insn__S_call_sub { my ($cl, $M) = @_;
-    $M->{_ast} = [[ call_sub => !$M->{voidmark}, $M->{decint}{_ast} ]];
+    $M->{_ast} = [[ call_sub => !$M->{voidmark}[0], $M->{decint}{_ast} ]];
 }
 
 sub insn__S_tail_call_sub { my ($cl, $M) = @_;

diff --git a/setting b/setting
@@ -49,19 +49,19 @@ PRE-INIT {
                 .plaincall/1:Kernel.NewROVar
             =[1] .tailcall/2
     } }
-#
-#    sub add-method { Q:NIL { null:Variable } }
-#
-#    Q:NIL {
-#        LEXICALS: $p: Variable
-#        L@&new-metaclass @  null:DynMetaObject new/1:CLRImportObject
-#            .plaincall/1:Kernel.NewROVar ="ClassHOW" .call/2 L!$p
-#
-#        L@$p @ how cast:DynObject  L@$p @ cast:DynObject @.klass  !.klass
-#
-#        L@$p L!^ClassHOW
-#        null:Variable
-#    }
+
+    sub add-method { Q:NIL { null:Variable } }
+
+    Q:NIL {
+        LEXICALS: $p: Variable
+        L@&new-metaclass @  null:DynMetaObject new/1:CLRImportObject
+            .plaincall/1:Kernel.NewROVar ="ClassHOW" .call/2 L!$p
+
+        L@$p @ how cast:DynObject  L@$p @ cast:DynObject @.klass  !.klass
+
+        L@$p L!^ClassHOW
+        null:Variable
+    }
 }
 
 sub say { Q:NIL {