allow wanted to be called on bogus asts

rakudo · Dec 13, 2015 · 2807a3c · 2807a3c
1 parent d2bc69e
commit 2807a3c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -17,6 +17,7 @@ sub block_closure($code) {
 }
 
 sub wanted($ast) {
+    return $ast unless nqp::can($ast,'ann');
     return $ast if $ast.ann('WANTED');  # already marked from here down
     return $ast if $ast.ann('wanted');  # already marked from here down
     if nqp::istype($ast,QAST::Stmt) ||