Mercurial > repos > rhope
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 |