Mercurial > forge

changeset 1218:39d99ae701b7 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
double should return value if its not a string
author aadler
date Wed, 21 Jan 2004 16:40:31 +0000
parents 335220f0347e
children 4f74a189e1e2
files main/general/double.m
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/main/general/double.m	Mon Jan 19 23:03:49 2004 +0000
+++ b/main/general/double.m	Wed Jan 21 16:40:31 2004 +0000
@@ -23,8 +23,12 @@
 ## Created: 15.6.98
 ## Version: 1.0
 
-function d = double(str)
+function d = double(in)
 
-  d = toascii(str);
+  if isstr(in)
+      d = toascii(str);
+  else
+      d = in;
+  end
 
 endfunction