Merge pull request #42 from lumimies/nom

Fix gist/perl for Junction and Bool
rakudo · Nov 24, 2011 · d5d5a3f · d5d5a3f
2 parents e3246ea + 21c0409
commit d5d5a3f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/core/Bool.pm b/src/core/Bool.pm
@@ -16,7 +16,7 @@ my class Bool {
 
     multi method ACCEPTS(Bool:D: Mu \$topic) { self }
 
-    multi method gist(Bool:D:) { self ?? 'Bool::True' !! 'Bool::False' }
+    multi method perl(Bool:D:) { self ?? 'Bool::True' !! 'Bool::False' }
 }
 
 

diff --git a/src/core/Junction.pm b/src/core/Junction.pm
@@ -38,6 +38,10 @@ my class Junction is Mu {
 
     submethod BUILD(:$!storage, :$!type) { }
 
+    multi method gist(Junction:D:) {
+        $!type ~ '(' ~ $!storage.map({$_.gist}).join(', ') ~ ')'
+    }
+
     multi method perl(Junction:D:) { 
         $!type ~ '(' ~ $!storage.map({$_.perl}).join(', ') ~ ')'
     }