--- a/scripts/set/complement.m	Wed Nov 09 20:02:47 1994 +0000
+++ b/scripts/set/complement.m	Wed Nov 09 21:22:15 1994 +0000
@@ -1,26 +1,26 @@
-function y = complement(a,b)
+function y = complement (a, b)
 
-# usage: complement(a,b)
+# usage: complement (a, b)
 #
 # Returns the elements of set b that are not in set a.
 #
 # See - create_set, union, intersection
 
-  if(nargin != 2)
-    error("usage: complement(a,b)");
+  if (nargin != 2)
+    usage ("complement(a,b)");
   endif
 
-  if(isempty(a))
+  if (isempty (a))
     y = create_set(b);
-  elseif(isempty(b))
+  elseif (isempty (b))
     y = [];
   else
-    a = create_set(a);
-    b = create_set(b);
+    a = create_set (a);
+    b = create_set (b);
     yindex = 1;
-    y = zeros(1,length(b));
-    for index = 1:length(b)
-      if(all(a != b(index)))
+    y = zeros (1, length (b));
+    for index = 1:length (b)
+      if (all (a != b (index)))
         y(yindex++) = b(index);
       endif
     endfor