From 67dbc846a9ba76b8f0c686814e76404ed33cfac7 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sat, 23 Feb 2002 21:33:19 +0000 Subject: [PATCH] (calc-invent-variables): Convert integer to string. --- lisp/calc/calcalg3.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el index 842290df259..cecbc41e7d2 100644 --- a/lisp/calc/calcalg3.el +++ b/lisp/calc/calcalg3.el @@ -328,7 +328,8 @@ (while (and (> n 0) names) (setq var (math-build-var-name (if (consp names) (car names) - (concat base (setq nn (1+ nn)))))) + (concat base (int-to-string + (setq nn (1+ nn))))))) (or (math-expr-contains (cons 'vec but) var) (setq vars (cons var vars) n (1- n))) -- 2.39.5