[Octave-cvsupdate] SF.net SVN: octave:[6029] trunk/octave-forge/main/control/inst

[<par...@us...>]

Revision: 6029
          http://octave.svn.sourceforge.net/octave/?rev=6029&view=rev
Author:   paramaniac
Date:     2009-07-19 06:38:10 +0000 (Sun, 19 Jul 2009)

Log Message:
-----------
changed from the obsolete create_set to unique in order to prevent warnings

Modified Paths:
--------------
    trunk/octave-forge/main/control/inst/__bodquist__.m
    trunk/octave-forge/main/control/inst/sortcom.m

Modified: trunk/octave-forge/main/control/inst/__bodquist__.m
===================================================================
--- trunk/octave-forge/main/control/inst/__bodquist__.m	2009-07-19 02:49:32 UTC (rev 6028)
+++ trunk/octave-forge/main/control/inst/__bodquist__.m	2009-07-19 06:38:10 UTC (rev 6029)
@@ -138,7 +138,7 @@
         wnew = vec(wseg)'; # make a row vector
         wnew = wnew(find (wnew != 0));
         wnew = sort (wnew);
-        wnew = create_set (wnew);
+        wnew = unique (wnew);
         if (isempty (wnew))   # all small crossovers
           pcnt = 0;
         else

Modified: trunk/octave-forge/main/control/inst/sortcom.m
===================================================================
--- trunk/octave-forge/main/control/inst/sortcom.m	2009-07-19 02:49:32 UTC (rev 6028)
+++ trunk/octave-forge/main/control/inst/sortcom.m	2009-07-19 06:38:10 UTC (rev 6029)
@@ -90,7 +90,7 @@
 
       ## sort common datavec values
       if (! isempty (zidx))
-        for iv = create_set (datavec(zidx))
+        for iv = unique (datavec(zidx))
           vidx = find (datavec == iv);
           [vals, imidx] = sort (imag (yy(vidx)));
           yy(vidx)  = yy(vidx(imidx));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.