File tree Expand file tree Collapse file tree 2 files changed +6
-3
lines changed Expand file tree Collapse file tree 2 files changed +6
-3
lines changed Original file line number Diff line number Diff line change 1
- class QAST::BVal is QAST ::Node { has $ ! block ; method block (* @ value ) { $ ! block := @ value [0 ] if @ value ; $ ! block } }
1
+ class QAST::BVal is QAST ::Node {
2
+ has $ ! value ;
3
+ method value (* @ value ) { $ ! value := @ value [0 ] if @ value ; $ ! value }
4
+ }
Original file line number Diff line number Diff line change @@ -377,10 +377,10 @@ class QAST::Compiler is HLL::Compiler {
377
377
}
378
378
379
379
multi method as_post (QAST ::BVal $ node ) {
380
- my $ cuid := self . escape($ node . block . cuid);
380
+ my $ cuid := self . escape($ node . value . cuid);
381
381
my $ reg := $ * REGALLOC . fresh_p();
382
382
my $ ops := self . post_new(' Ops' , : result($ reg ));
383
- $ ops . push_pirop(" .const 'Sub' $ reg = ' $ cuid' " );
383
+ $ ops . push_pirop(" .const 'Sub' $ reg = $ cuid" );
384
384
$ ops ;
385
385
}
386
386
You can’t perform that action at this time.
0 commit comments