Mercurial > octave-nkf
changeset 6542:90bc7594a7f8
[project @ 2007-04-19 03:19:11 by jwe]
| author | jwe |
|---|---|
| date | Thu, 19 Apr 2007 03:19:12 +0000 |
| parents | 0796d8905848 |
| children | aa2837cae002 |
| files | scripts/ChangeLog scripts/specfun/factorial.m src/ChangeLog src/pt-id.cc |
| diffstat | 4 files changed, 6 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog Wed Apr 18 21:55:26 2007 +0000 +++ b/scripts/ChangeLog Thu Apr 19 03:19:12 2007 +0000 @@ -1,3 +1,7 @@ +2007-04-18 John W. Eaton <jwe@octave.org> + + * specfun/factorial.m: Increase tolerance in large value test. + 2007-04-18 David Bateman <dbateman@free.fr> * __bar__.m: New support function for bar/hbar to support graphic
--- a/scripts/specfun/factorial.m Wed Apr 18 21:55:26 2007 +0000 +++ b/scripts/specfun/factorial.m Thu Apr 19 03:19:12 2007 +0000 @@ -35,6 +35,6 @@ %!assert (factorial(5), prod(1:5)) %!assert (factorial([1,2;3,4]), [1,2;6,24]) -%!assert (factorial(70), exp(sum(log(1:70))), -10*eps) +%!assert (factorial(70), exp(sum(log(1:70))), -128*eps) %!fail ('factorial(5.5)', "must all be nonnegative integers") %!fail ('factorial(-3)', "must all be nonnegative integers")
--- a/src/ChangeLog Wed Apr 18 21:55:26 2007 +0000 +++ b/src/ChangeLog Thu Apr 19 03:19:12 2007 +0000 @@ -1,8 +1,3 @@ -2007-04-18 John W. Eaton <jwe@octave.org> - - * pt-id.cc (tree_identifier::do_lookup): Don't call lookup if - symbol is a variable. - 2007-04-16 Geordie McBain <geordie.mcbain@aeromech.usyd.edu.au> * ov-fcn-inline.cc (Fargnames): Doc fix.
--- a/src/pt-id.cc Wed Apr 18 21:55:26 2007 +0000 +++ b/src/pt-id.cc Thu Apr 19 03:19:12 2007 +0000 @@ -107,10 +107,7 @@ { static octave_value foo; - if (sym && sym->is_variable ()) - script_file_executed = false; - else - script_file_executed = lookup (sym, exec_script); + script_file_executed = lookup (sym, exec_script); return script_file_executed ? foo : sym->def (); }