From 779654436a7ade84615619bfdb50d011c6e2c36b Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Tue, 8 Dec 2009 23:41:10 -0500
Subject: [PATCH] Add proto for join.

Turn on S32-list/join.t test.
---
 src/core/Any-list.pm | 1 +
 t/spectest.data      | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/core/Any-list.pm b/src/core/Any-list.pm
index 579aa0dcf1d..7cc63bab42a 100644
--- a/src/core/Any-list.pm
+++ b/src/core/Any-list.pm
@@ -28,6 +28,7 @@ augment class Any {
     }
 }
 
+our proto sub join (Str $separator = '', *@values) { @values.join($separator); }
 our proto sub reverse(@values) { @values.reverse; }
 our multi sub reverse(*@v) { @v.reverse; }
 
diff --git a/t/spectest.data b/t/spectest.data
index 41d1f07e5c7..c48c97fee24 100644
--- a/t/spectest.data
+++ b/t/spectest.data
@@ -407,7 +407,7 @@ S29-any/cmp.t
 # S32-list/end.t
 # S32-list/first.t
 # S32-list/grep.t
-# S32-list/join.t
+S32-list/join.t
 # S32-list/map_function_return_values.t
 # S32-list/map.t
 # S32-list/minmax.t