gistfile1.txt

cpan@perlbuild2~/CPANPRC/rakudo (nom)$ gd
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
index f0bf943..a01f172 100644
--- a/src/core/Parameter.pm
+++ b/src/core/Parameter.pm
@@ -162,9 +162,7 @@ my class Parameter { # declared in BOOTSTRAP
     method default() {
         nqp::isnull($!default_value)
           ?? Any
-          !! nqp::istype($!default_value,Code)
-            ?? $!default_value
-            !! { $!default_value }
+          !! $!default_value
     }
     method type_captures() {
         nqp::if(
cpan@perlbuild2~/CPANPRC/rakudo (nom)$ make t/spec/S06-signature/introspection.t
rm -f -- perl6
cp -- perl6-m perl6
chmod -- 755 perl6
/home/cpan/perl5/perlbrew/perls/perl-5.24.0/bin/perl t/harness5 --fudge --moar --keep-exit-code --verbosity=1 t/spec/S06-signature/introspection.t

ok 1 - .params does Positional
ok 2 - And all items are Parameters
ok 3 - we have three of them
ok 4 - can get the names with sigils
ok 5 - Could get first type
ok 6 - Could get second type
ok 7 - they are all read-only
ok 8 - ... none rw
ok 9 - ... none copy
ok 10 - ... none raw
ok 11 - ... none slurpy
ok 12 - ... some optional
ok 13 - ... none invocant
ok 14 - ... one named
ok 15 - (second sig) none are all read-only
ok 16 - ... one rw
ok 17 - ... one raw
ok 18 - ... one copy
ok 19 - ... none slurpy
ok 20 - ... some optional
ok 21 - ... none invocant
ok 22 - ... all named
ok 23 - named_names work
ok 24 - .name works for renamed params
ok 25 - .named for slurpies
ok 26 - .slurpy
ok 27 - .name for slurpies
ok 28 - multi named_names
ok 29 - ... and .name still works
not ok 30 - ... and .perl abbreviates separated name/named_name # TODO needs/find RT: Logic to make :a($a) into :$a makes :a(:b($a) into ::b(:$a)
not ok 31 - .default returns closure
Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 103/133 subtests 

Test Summary Report
-------------------
t/spec/S06-signature/introspection.rakudo.moar (Wstat: 65280 Tests: 31 Failed: 1)
  Failed test:  31
  Non-zero exit status: 255
  Parse errors: Bad plan.  You planned 133 tests but ran 31.
Files=1, Tests=31,  1 wallclock secs ( 0.02 usr  0.00 sys +  0.99 cusr  0.02 csys =  1.03 CPU)
Result: FAIL
Makefile:633: recipe for target 't/spec/S06-signature/introspection.t' failed
make: *** [t/spec/S06-signature/introspection.t] Error 1
cpan@perlbuild2~/CPANPRC/rakudo (nom)$