# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1288924965 0
# Node ID 147dfc703161972f30c79c0c8a9f763ddb171c47
# Parent  c9974ac323692b97d805b162edcec0d71464c9b4
Add String method to List

diff -r c9974ac32369 -r 147dfc703161 list.rhope
--- a/list.rhope	Fri Nov 05 02:42:18 2010 +0000
+++ b/list.rhope	Fri Nov 05 02:42:45 2010 +0000
@@ -326,6 +326,26 @@
 	}	
 }
 
+_String Seq[text,val,key:out]
+{
+	out <- [text]Append[ [[["\n\t"]Append[String[key]]]Append[":\t"]]Append[ [[String[val]]Split["\n"]]Join["\t\n"] ] ]
+}
+
+String@List Leaf[list:out]
+{
+	If[[[list]Buffer >>]Length]
+	{
+		out <- Fold[_String Seq[?], "List", list]
+	}{
+		out <- "List\n\t{Empty}"
+	}
+}
+
+String@List[list:out]
+{
+	out <- Fold[_String Seq[?], "List", list]
+}
+
 Print@List[list:out]
 {
 	Print["List"]