# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1264489913 -3600
# Node ID 956eab916c866d9e7edab228a8bff1046c0ca2ad
# Parent  025564630c8da5beca3ea34d355a19943cc6bdb8
again complement->setdiff

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-26  Jaroslav Hajek  <highegg@gmail.com>
+
+	* pkg/pkg.m: More complement -> setdiff changes.
+
 2010-01-23  Jaroslav Hajek  <highegg@gmail.com>
 
 	* pkg/pkg.m: Use setdiff rather than complement.
diff --git a/scripts/pkg/pkg.m b/scripts/pkg/pkg.m
--- a/scripts/pkg/pkg.m
+++ b/scripts/pkg/pkg.m
@@ -668,13 +668,11 @@
       if (global_install)
 	## Global installation is not allowed to have dependencies on locally
 	## installed packages.
-	idx1 = complement (packages_to_uninstall, 
-			   1:length(global_packages));
+	idx1 = setdiff (1:length(global_packages), packages_to_uninstall);
 	pseudo_installed_packages = {global_packages{idx1}, ...
 				     descriptions{idx2}};
       else
-	idx1 = complement (packages_to_uninstall, 
-			   1:length(local_packages));
+	idx1 = setdiff (1:length(local_packages), packages_to_uninstall);
 	pseudo_installed_packages = {local_packages{idx1}, ... 
 				     global_packages{:}, ...
 				     descriptions{idx2}};