Implement SIG_ELEM_DEFAULT_FROM_OUTER.

rakudo · Nov 28, 2013 · 66bf730 · 66bf730
1 parent 6b86f73
commit 66bf730
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.nqp b/src/Perl6/Metamodel/BOOTSTRAP.nqp
@@ -331,7 +331,9 @@ my class Binder {
     sub handle_optional($param, int $flags, $lexpad) {
         # Is the "get default from outer" flag set?
         if $flags +& $SIG_ELEM_DEFAULT_FROM_OUTER {
-            nqp::die('SIG_ELEM_DEFAULT_FROM_OUTER NYI');
+            nqp::atkey(
+                nqp::ctxouter($lexpad),
+                nqp::getattr_s($param, Parameter, '$!variable_name'))
         }
 
         # Do we have a default value or value closure?