--- a/src/parallel_execution/trans_impl.pl	Mon Dec 02 22:51:17 2019 +0900
+++ b/src/parallel_execution/trans_impl.pl	Tue Dec 03 08:21:48 2019 +0900
@@ -117,14 +117,15 @@
 
   if (defined $impl_ir->{codes}) {
     for my $cg (@{$impl_ir->{codes}}) {
+      my $data_gears = $cg->{args};
       while ($data_gears =~ /Type\*\s*(\w+),/g) {
           $data_gears =~ s/Type\*/struct $impl*/;
       }
 
       while ($data_gears =~ /Isa\*\s*(\w+),/g) {
-          $data_gears =~ s/Isa\*/struct $inter_name*/;
+          $data_gears =~ s/Isa\*/struct $interface_name*/;
       }
-      print $out "__code $code_ir->{name}$impl(";
+      print $out "__code $cg->{name}$impl(";
       print $out "$data_gears) {\n\n";
 
       #__code next(...), __code whenEmpty(...)