Fix non-scanning.

jnthn · Feb 21, 2013 · bb49a80 · bb49a80
1 parent ad52981
commit bb49a80
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/QAST/JASTCompiler.nqp b/lib/QAST/JASTCompiler.nqp
@@ -3663,15 +3663,15 @@ class QAST::CompilerJAST {
         my $scanlabel := JAST::Label.new( :name($prefix ~ '_scan') );
         my $donelabel := JAST::Label.new( :name($prefix ~ '_done') );
 
-        $il.append(JAST::Instruction.new( :op('aload'), %*REG<cur> ));
+        $il.append(JAST::Instruction.new( :op('aload'), 'self' ));
         $il.append(JAST::Instruction.new( :op('aload'), %*REG<curclass> ));
         $il.append(JAST::PushSVal.new( :value('$!from') ));
         $il.append(JAST::Instruction.new( :op('aload_1') ));
         $il.append(JAST::Instruction.new( :op('invokestatic'), $TYPE_OPS,
                 "getattr_i", 'Long', $TYPE_SMO, $TYPE_SMO, $TYPE_STR, $TYPE_TC ));
         $il.append(JAST::PushIVal.new( :value(-1) ));
         $il.append(JAST::Instruction.new( :op('lcmp') ));
-        $il.append(JAST::Instruction.new( :op('ifeq'), $donelabel ));
+        $il.append(JAST::Instruction.new( :op('ifne'), $donelabel ));
         $il.append(JAST::Instruction.new( :op('goto'), $scanlabel ));
 
         $il.append($looplabel);