From: Colin Walters <walters@gnu.org>
Date: Mon, 18 Feb 2002 20:06:20 +0000 (+0000)
Subject: (math-solve-get-int): Convert return value from
X-Git-Tag: ttn-vms-21-2-B4~16581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88258edfb6e934db5e672183273a2cf706da0890;p=emacs.git

(math-solve-get-int): Convert return value from
`math-get-from-counter' to a string before calling `concat' on it.
---

diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el
index c5ed7688d3d..0b21dd86f74 100644
--- a/lisp/calc/calcalg2.el
+++ b/lisp/calc/calcalg2.el
@@ -3160,7 +3160,8 @@
 	      (math-mul val (list 'calcFunc-an var-GenCount))
 	    (setq var-GenCount (math-add var-GenCount 1))
 	    (calc-refresh-evaltos 'var-GenCount))
-	(let* ((var (concat "n" (math-get-from-counter 'solve-int)))
+	(let* ((var (concat "n" (int-to-string
+				 (math-get-from-counter 'solve-int))))
 	       (var2 (list 'var (intern var) (intern (concat "var-" var)))))
 	  (if (and range (eq solve-full 'all))
 	      (setq math-solve-ranges (cons (cons var2