Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v diff -u -r1.37.2.7 -r1.37.2.8 --- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 21 Mar 2016 19:11:51 -0000 1.37.2.7 +++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 21 Mar 2016 19:12:38 -0000 1.37.2.8 @@ -892,35 +892,6 @@ } -# -# intersect3 - perform the intersecting of two lists, returning a list -# containing three lists. The first list is everything in the first -# list that wasn't in the second, the second list contains the intersection -# of the two lists, the third list contains everything in the second list -# that wasn't in the first. -# - -proc util_intersect3 {list1 list2} { - set la1(0) {} ; unset la1(0) - set lai(0) {} ; unset lai(0) - set la2(0) {} ; unset la2(0) - foreach v $list1 { - set la1($v) {} - } - foreach v $list2 { - set la2($v) {} - } - foreach elem [concat $list1 $list2] { - if {[info exists la1($elem)] && [info exists la2($elem)]} { - unset la1($elem) - unset la2($elem) - set lai($elem) {} - } - } - list [lsort [array names la1]] [lsort [array names lai]] \ - [lsort [array names la2]] -} - ::xo::library source_dependent # # Local variables: