changeset 5401:f654f94c46af

[project @ 2005-07-05 16:29:22 by jwe]
author jwe
date Tue, 05 Jul 2005 16:29:22 +0000
parents c7e3cf2fce3e
children 2ecbb26cd239
files src/ChangeLog src/DLD-FUNCTIONS/betainc.cc src/file-io.cc
diffstat 3 files changed, 17 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+2005-07-05  Antoine Moreau  <antoine.moreau@univ-bpclermont.fr>
+
+	* DLD-FUNCTIONS/betainc.cc (Fbetainc): Fix doc string to match
+	function definition..
+
+2005-07-05  Mats Jansson  <mats.e.jansson@home.se>
+
+         * file-io.cc (Fmkstemp): Check if second argument is true
+         before marking file for deletion.
+
 2005-07-05  John W. Eaton  <jwe@octave.org>
 
 	* ov-str-mat.cc (octave_char_matrix_str::do_index_op_internal):
--- a/src/DLD-FUNCTIONS/betainc.cc
+++ b/src/DLD-FUNCTIONS/betainc.cc
@@ -40,18 +40,18 @@
 @iftex\n\
 @tex\n\
 $$\n\
- \\beta (a, b, x) = B (a, b)^{-1} \\int_0^x t^{(a-z)} (1-t)^{(b-1)} dt.\n\
+ \\betainc (x, a, b) = B (a, b)^{-1} \\int_0^x t^{(a-z)} (1-t)^{(b-1)} dt.\n\
 $$\n\
 @end tex\n\
 @end iftex\n\
 @ifinfo\n\
 \n\
 @smallexample\n\
-                                    x\n\
-                                   /\n\
-betai (a, b, x) = beta (a, b)^(-1) | t^(a-1) (1-t)^(b-1) dt.\n\
-                                   /\n\
-                                t=0\n\
+                                      x\n\
+                                     /\n\
+betainc (x, a, b) = beta (a, b)^(-1) | t^(a-1) (1-t)^(b-1) dt.\n\
+                                     /\n\
+                                  t=0\n\
 @end smallexample\n\
 @end ifinfo\n\
 \n\
--- a/src/file-io.cc
+++ b/src/file-io.cc
@@ -1881,7 +1881,7 @@
 		      retval(1) = nm;
 		      retval(0) = octave_stream_list::insert (s);
 
-		      if (nargin == 2)
+		      if (nargin == 2 && args(1).is_true ())
 			mark_for_deletion (nm);
 		    }
 		  else