[src/builtins] some PIR simplifications

JimmyZ++ for the patch.
rakudo · Aug 2, 2009 · f76b3c7 · f76b3c7
1 parent e02bc06
commit f76b3c7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -1446,11 +1446,10 @@ over the rest of the code base.
     $P0 = wanted_type.'WHAT'()
     goto wanted_type_done
   junc_wanted:
-    $P0 = wanted_type
-    $P1 = $P0.'eigenstates'()
-    $I0 = elements $P1
+    $P0 = wanted_type.'eigenstates'()
+    $I0 = elements $P0
     if $I0 > 1 goto wanted_type_done
-    $P0 = $P1[0]
+    $P0 = $P0[0]
   wanted_type_done:
     $S0 = $P0.'perl'()
     output = concat $S0

diff --git a/src/builtins/io.pir b/src/builtins/io.pir
@@ -33,9 +33,9 @@ src/builtins/io.pir - Perl6 builtins for I/O
 
 .sub 'say'
     .param pmc list            :slurpy
-    .local pmc it, out
+    .local pmc out
     out = get_hll_global '$OUT'
-    'print'(list :flat)
+    out.'print'(list :flat)
     out.'print'("\n")
     .return (1)
 .end