comparison string.rhope @ 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 f97a7d499182
comparison
equal deleted inserted replaced
157:37b999dbd12e 158:0e06f29aa83d
866 { 866 {
867 ll <- [left]Left >> 867 ll <- [left]Left >>
868 lr <- [left]Right >> 868 lr <- [left]Right >>
869 If[[[ll]Depth] > [[lr]Depth]] 869 If[[[ll]Depth] > [[lr]Depth]]
870 { 870 {
871 out <- String Cat[ll, String Cat[lr,right]] 871 out <- String Cat[ll, Append[lr,right]]
872 }{ 872 }{
873 out <- String Cat[left,right] 873 out <- String Cat[left,right]
874 } 874 }
875 } 875 }
876 876