changeset 158:0e06f29aa83d

Small tweak to String Cat balance
author Mike Pavone <pavone@retrodev.com>
date Thu, 23 Dec 2010 16:16:31 -0500
parents 37b999dbd12e
children d1e206ff75f9 f97a7d499182
files string.rhope
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/string.rhope	Thu Dec 23 15:48:19 2010 -0500
+++ b/string.rhope	Thu Dec 23 16:16:31 2010 -0500
@@ -868,7 +868,7 @@
 	lr <- [left]Right >>
 	If[[[ll]Depth] > [[lr]Depth]]
 	{
-		out <- String Cat[ll, String Cat[lr,right]]
+		out <- String Cat[ll, Append[lr,right]]
 	}{
 		out <- String Cat[left,right]
 	}