From d42198a94fa53764080fa64aba276a82ca16736b Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Sun, 28 Feb 2010 10:52:34 -0500
Subject: [PATCH] Implement Seq.Bool.

---
 src/core/Seq.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/core/Seq.pm b/src/core/Seq.pm
index 5d97b8871b8..ac39d164706 100644
--- a/src/core/Seq.pm
+++ b/src/core/Seq.pm
@@ -5,6 +5,10 @@ augment class Seq {
         pir::join(' ', self!fill);
     }
 
+    multi method Bool() {
+        self!fill(1) ?? Bool::True !! Bool::False;
+    }
+
     multi method sort(&by = &infix:<cmp>) {
         # Parrot already provides a sort method that works on
         # ResizablePMCArray, so we aim to make use of that here.