Some QASTNode updates I missed earlier.

jnthn · Feb 28, 2013 · 1ca4a94 · 1ca4a94
1 parent e58bbdb
commit 1ca4a94
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/nqp-src/QASTNodes.nqp b/nqp-src/QASTNodes.nqp
@@ -462,8 +462,14 @@ class QAST::Block is QAST::Node {
     has str $!cuid;
     has %!symbol;
 
-    method name(*@value)        { $!name := @value[0] if @value; $!name || "" }
-    method blocktype(*@value)   { $!blocktype := @value[0] if @value; $!blocktype }
+    method name(*@value) {
+        $!name := @value[0] if @value;
+        nqp::isnull_s($!name) ?? "" !! $!name
+    }
+    method blocktype(*@value) {
+        $!blocktype := @value[0] if @value;
+        nqp::isnull_s($!blocktype) ?? "" !! $!blocktype
+    }
     method custom_args(*@value) { $!custom_args := @value[0] if @value; $!custom_args }
 
     my $cur_cuid := 0;