[java] Fix code-gen of block setup, so now invocation bottoms out.

jnthn · Jan 16, 2011 · d944750 · d944750
1 parent 422f867
commit d944750
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/java/compiler/JST2Java.pm b/java/compiler/JST2Java.pm
@@ -215,7 +215,8 @@ our multi sub java_for(JST::New $new) {
     $code := $code ~ "        " ~ $new.type ~ " $*LAST_TEMP = new ";
     $code := $code ~ $new.type;
     if $new.type eq 'RakudoCodeRef.IFunc_Body' {
-        $code := $code ~ "() \{ public RakudoObject Invoke( ThreadContext TC, RakudoObject Obj, RakudoObject Cap ) \{ return ((RakudoCodeRef.Instance)Obj).Body.Invoke(TC, Obj, Cap);\}\}";
+        my $block_name := (@($new))[0];
+        $code := $code ~ "() \{ public RakudoObject Invoke( ThreadContext TC, RakudoObject Obj, RakudoObject Cap ) \{ return $block_name(TC, Obj, Cap);\}\}";
     }
     else {
         $code := $code ~ "(" ~ pir::join(', ', @arg_names) ~ ")";