Mercurial > octave

diff src/octave.cc @ 5658:7b45fda21557

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-03-10 03:57:23 by jwe]
author jwe
date Fri, 10 Mar 2006 03:57:23 +0000
parents 6aae52010e3b
children ace8d8d26933
line wrap: on
line diff
--- a/src/octave.cc	Thu Mar 09 19:21:39 2006 +0000
+++ b/src/octave.cc	Fri Mar 10 03:57:23 2006 +0000
@@ -212,7 +212,7 @@
 
 DEFUN (__version_info__, args, ,
   "-*- texinfo -*-\n\
-@deftypefn {Function File} {retval =} __version_info__ (@var{name}, @var{version}, @var{date})\n\
+@deftypefn {Function File} {retval =} __version_info__ (@var{name}, @var{version}, @var{release}, @var{date})\n\
 @end deftypefn")
 {
   octave_value retval;
@@ -221,14 +221,14 @@
 
   int nargin = args.length ();
 
-  if (nargin == 3)
+  if (nargin == 4)
     {
       octave_value idx (vinfo.numel () + 1);
 
       vinfo.assign (idx, "Name", Cell (octave_value (args (0))));
       vinfo.assign (idx, "Version", Cell (octave_value (args (1))));
-      vinfo.assign (idx, "Release", Cell (octave_value (args (1))));
-      vinfo.assign (idx, "Date", Cell (octave_value (args (2))));
+      vinfo.assign (idx, "Release", Cell (octave_value (args (2))));
+      vinfo.assign (idx, "Date", Cell (octave_value (args (3))));
     }
   else if (nargin == 0)
     retval = vinfo;
@@ -243,7 +243,8 @@
 {
   octave_value_list args;
 
-  args(2) = OCTAVE_RELEASE_DATE;
+  args(3) = OCTAVE_RELEASE_DATE;
+  args(2) = OCTAVE_RELEASE;
   args(1) = OCTAVE_VERSION;
   args(0) = "GNU Octave";