Mercurial > hg > octave-nkf

changeset 6542:90bc7594a7f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
+++ b/scripts/ChangeLog
@@ -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
+++ b/scripts/specfun/factorial.m
@@ -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
+++ b/src/ChangeLog
@@ -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
+++ b/src/pt-id.cc
@@ -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 ();
 }