Mercurial > hg > octave-lyh

diff scripts/strings/str2double.m @ 7428:0c11c6907c38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-29 23:28:10 by jwe]
author jwe
date Tue, 29 Jan 2008 23:28:11 +0000
parents 120f3135952f
children 502e58a0d44f
line wrap: on
line diff
--- a/scripts/strings/str2double.m
+++ b/scripts/strings/str2double.m
@@ -81,8 +81,6 @@
 
 function [num, status, strarray] = str2double (s, cdelim, rdelim, ddelim)
 
-  FLAG_OCTAVE = exist('OCTAVE_VERSION','builtin');
-
   ## digits, sign, exponent,NaN,Inf
   ## valid_char = '0123456789eE+-.nNaAiIfF';
 
@@ -114,7 +112,7 @@
   endif
 
   if (nargin < 4)
-    ddelim = '.';
+    ddelim = ".";
   elseif (length (ddelim) != 1)
     error ("decimal delimiter must be exactly one character");
   endif