File tree Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Original file line number Diff line number Diff line change @@ -511,16 +511,19 @@ class NQP::Actions is HLL::Actions {
511
511
PAST::Var. new ( : name(~ $ name ), : namespace(@ ns ), : scope(' package' ) )
512
512
));
513
513
}
514
- elsif $ * PKGDECL eq ' grammar' {
514
+ elsif pir:: can ($ how , ' set_default_parent' ) {
515
+ # Set default parent.
515
516
$ * PACKAGE-SETUP . push (PAST::Op. new (
516
- : pasttype(' callmethod' ), : name(' add_parent ' ),
517
+ : pasttype(' callmethod' ), : name(' set_default_parent ' ),
517
518
PAST::Op. new (
518
519
# XXX nqpop get_how
519
520
: pirop(' get_how PP' ),
520
521
PAST::Var. new ( : name(' type_obj' ), : scope(' register' ) )
521
522
),
522
523
PAST::Var. new ( : name(' type_obj' ), : scope(' register' ) ),
523
- PAST::Var. new ( : name(' Cursor' ), : namespace(' Regex' ), : scope(' package' ) )
524
+ ($ * PKGDECL eq ' grammar' ??
525
+ PAST::Var. new ( : name(' Cursor' ), : namespace(' Regex' ), : scope(' package' ) ) !!
526
+ PAST::Var. new ( : name(' NQPMu' ), : namespace([]), : scope(' package' ) ))
524
527
));
525
528
}
526
529
You can’t perform that action at this time.
0 commit comments