Mercurial > hg > octave-nkf

comparison scripts/general/arrayfun.m @ 9788:e3e5d43d9d4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix arrayfun with nargout=0
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 09 Nov 2009 08:59:28 +0100
parents 4cf195710ae8
children a8ce6bdecce5
comparison
equal deleted inserted replaced
9787:cc5bb7b5679f 9788:e3e5d43d9d4c
154 opts = varargin(nargs+1:end); 154 opts = varargin(nargs+1:end);
155 155
156 args = cellfun (@num2cell, args, "UniformOutput", false, 156 args = cellfun (@num2cell, args, "UniformOutput", false,
157 "ErrorHandler", @arg_class_error); 157 "ErrorHandler", @arg_class_error);
158 158
159 [varargout{1:nargout}] = cellfun (func, args{:}, opts{:}); 159 [varargout{1:max(1, nargout)}] = cellfun (func, args{:}, opts{:});
160 160
161 endfunction 161 endfunction
162 162
163 function arg_class_error (S, X) 163 function arg_class_error (S, X)
164 error ("arrayfun: invalid argument of class %s", class (X)) 164 error ("arrayfun: invalid argument of class %s", class (X))