Make BVal consistent with the various other Val nodes. Also fix compi…

…lation of it.
Raku · May 12, 2012 · efa345e · efa345e
1 parent 2a41c7d
commit efa345e
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/src/QAST/BVal.nqp b/src/QAST/BVal.nqp
@@ -1 +1,4 @@
-class QAST::BVal is QAST::Node {    has $!block;    method block(*@value) { $!block := @value[0] if @value; $!block }}
+class QAST::BVal is QAST::Node {
+    has $!value;
+    method value(*@value) { $!value := @value[0] if @value; $!value }
+}
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -377,10 +377,10 @@ class QAST::Compiler is HLL::Compiler {
     }
 
     multi method as_post(QAST::BVal $node) {
-        my $cuid := self.escape($node.block.cuid);
+        my $cuid := self.escape($node.value.cuid);
         my $reg  := $*REGALLOC.fresh_p();
         my $ops  := self.post_new('Ops', :result($reg));
-        $ops.push_pirop(".const 'Sub' $reg = '$cuid'");
+        $ops.push_pirop(".const 'Sub' $reg = $cuid");
         $ops;
     }