matthiasm@8: function assert(pred, str)
matthiasm@8: % ASSERT Raise an error if the predicate is not true.
matthiasm@8: % assert(pred, string)
matthiasm@8: 
matthiasm@8: if nargin<2, str = ''; end
matthiasm@8: 
matthiasm@8: if ~pred
matthiasm@8:   s = sprintf('assertion violated: %s', str);
matthiasm@8:   error(s);
matthiasm@8: end