Switch to use definedness instead of truthiness for adding nodes.

perl6 · Nov 24, 2009 · 32ed0f5 · 32ed0f5
1 parent 8468ad8
commit 32ed0f5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -79,15 +79,15 @@ method EXPR($/, $key?) {
     }
     if $key eq 'POSTFIX' { $past.unshift($/[0].ast); }
     else {
-        for $/.list { if $_.ast { $past.push($_.ast); } }
+        for $/.list { if pir::defined__IP($_.ast) { $past.push($_.ast); } }
     }
     make $past;
 }
 
 method term:sym<circumfix>($/) { make $<circumfix>.ast }
 
 method termish($/) { make $<term>.ast; }
-method nullterm($/) { make 0; }
+method nullterm($/) { make Q:PIR { %r = new ['Undef'] }; }
 method nullterm_alt($/) { make $<term>.ast; }
 
 method integer($/) { make $<VALUE>.ast; }