Mercurial > hg > octave-nkf

diff scripts/general/int2str.m @ 419:b61c335c45c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-05-23 06:43:05 by jwe]
author jwe
date Mon, 23 May 1994 06:43:05 +0000
parents 16a24e76d6e0
children 3470f1e25a79
line wrap: on
line diff
--- a/scripts/general/int2str.m
+++ b/scripts/general/int2str.m
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 John W. Eaton
+# Copyright (C) 1993, 1994 John W. Eaton
 # 
 # This file is part of Octave.
 # 
@@ -24,9 +24,11 @@
 #
 # See also: sprintf, num2str 
 
+# XXX FIXME XXX -- this will fail for very large values.
+
   if (nargin == 1)
     if (rows (x) == 1 && columns (x) == 1)
-      retval = sprintf ("%f\n", round (x));
+      retval = sprintf ("%d", round (x));
     else
       error ("int2str: expecting scalar argument");
     endif