annotate general/numerical/scalar/slog.m @ 29:61921dceded1

More documentation on type system.

function y=slog(x)
% slog - safe log, x<=0 => slog(x)=0
%
% slog :: real -> real.

	x(x<=0)=1;
	y=log(x);