Mercurial > octave-nkf

diff scripts/strings/strcat.m @ 3979:e0b7a493e5a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-10 17:45:34 by jwe]
author jwe
date Wed, 10 Jul 2002 17:45:34 +0000
parents f8dde1807dee
children cef48c4b902d
line wrap: on
line diff
--- a/scripts/strings/strcat.m	Fri Jul 05 17:55:11 2002 +0000
+++ b/scripts/strings/strcat.m	Wed Jul 10 17:45:34 2002 +0000
@@ -33,7 +33,7 @@
 
 ## Author: jwe
 
-function st = strcat (s, t, ...)
+function st = strcat (s, t, varargin)
 
   if (nargin > 1)
     save_empty_list_elements_ok = empty_list_elements_ok;
@@ -45,8 +45,9 @@
         error ("strcat: all arguments must be strings");
       endif
       n = nargin - 2;
+      k = 1;
       while (n--)
-        tmp = va_arg ();
+        tmp = varargin{k++};
         if (isstr (tmp))
           tmpst = [tmpst, tmp];
         else