Tweak to .constraints to pass another spectest.

rakudo · Oct 10, 2009 · 925fd06 · 925fd06
1 parent 4cdac8a
commit 925fd06
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/src/classes/Signature.pir b/src/classes/Signature.pir
@@ -68,7 +68,7 @@ Returns a C<List> of C<Parameter> descriptors.
 
     # Make sure constraints is non-null.
     unless null cons_type goto cons_done
-    cons_type = 'undef'()
+    cons_type = get_hll_global ['Bool'], 'True'
   cons_done:
 
     # Any names?

diff --git a/src/setting/Signature.pm b/src/setting/Signature.pm
@@ -57,8 +57,9 @@ class Signature is also {
                 elsif !$param.optional && $param.named && !$param.slurpy { take '!' }
 
                 # Any constraints?
-                if $param.constraints {
-                    take ' where ' ~ $param.constraints.perl;
+                my $cons_perl = $param.constraints.perl;
+                if $cons_perl ne 'Bool::True' {
+                    take ' where ' ~ $cons_perl;
                 }
 
                 # Default.