diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir index be11f87f036..00e30676f77 100644 --- 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 index 69d5502af44..4a59d917fc0 100644 --- 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