Mercurial > octave-nkf

diff src/Cell.cc @ 9813:8fa32b527d9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve & partially revert previous change
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 13 Nov 2009 11:45:39 +0100
parents f80c566bc751
children 64a06079cae4
line wrap: on
line diff
--- a/src/Cell.cc	Thu Nov 12 15:47:58 2009 +0100
+++ b/src/Cell.cc	Fri Nov 13 11:45:39 2009 +0100
@@ -266,7 +266,7 @@
 }
 
 Cell
-Cell::map (unary_mapper_t umap) const
+Cell::map (ctype_mapper fcn) const
 {
   Cell retval (dims ());
   octave_value *r = retval.fortran_vec ();
@@ -274,11 +274,7 @@
   const octave_value *p = data ();
 
   for (octave_idx_type i = 0; i < numel (); i++)
-    {
-      r[i] = p[i].map (umap);
-      if (error_state)
-        break;
-    }
+    r[i] = ((p++)->*fcn) ();
 
   return retval;
 }