Fix stupid bug with process_recursive.

parrot · Oct 2, 2012 · dfe41e3 · dfe41e3
1 parent 3d3ec36
commit dfe41e3
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/compilers/opsc/src/Ops/Util.pm b/compilers/opsc/src/Ops/Util.pm
@@ -14,8 +14,8 @@ sub process_recursive($op, &ctor) {
         pir::push($res, process_recursive($_, &ctor)) for @($op);
         $res{$_} := process_recursive($op{$_}, &ctor) for $op.hash.keys;
     }
-    elsif (pir::does($res, 'array')) {
-        $res := $res.map(->$_ { process_recursive($_, &ctor) });
+    elsif pir::does($op, 'array') {
+        $res := $op.map(->$_ { process_recursive($_, &ctor) });
     }
     else {
         $res := pir::clone($op);
@@ -40,6 +40,7 @@ sub to_capture($op) {
         my $what := ~$_.WHAT;
         $_ := pir::new('Capture');
         $_<WHAT> := $what;
+        $_.hash.delete('source');
         $_
     });
 }