--- a/string.rhope	Tue Aug 03 23:51:39 2010 -0400
+++ b/string.rhope	Fri Aug 06 01:42:37 2010 -0400
@@ -647,3 +647,35 @@
 	out <- [compare] = [ends with]
 }
 
+If@String[str:yes,no]
+{
+	yes,no <- If[[str]Length]
+}
+
+If@String Cat[str:yes,no]
+{
+	yes,no <- If[[str]Length]
+}
+
+If@String Slice[str:yes,no]
+{
+	yes,no <- If[[str]Length]
+}
+
+_Split[list,string,delim:out]
+{
+	,,rest <- [string]Partition[delim]
+	{
+		out <- _Split[[list]Append[~], rest, delim]
+	} {} {} {
+		out <- [list]Append[string]
+	}
+}
+
+Split[string,delim:out]
+{
+	If[string]
+	{ out <- _Split[(),string,delim] }
+	{ out <- () }
+}
+