Searched refs:srec_trim (Results 1 – 1 of 1) sorted by relevance
99 proc srec_trim { l leave } { procedure195 set l2 [srec_trim $l2 [expr ($a2 + $n2) - ($a1 + $n1)]]198 set l1 [srec_trim $l1 [expr ($a1 + $n1) - ($a2 + $n2)]]