Mercurial > emacs

changeset 43506:43be8de143a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-solve-get-sign): Convert integer to string.
author Colin Walters <walters@gnu.org>
date Sun, 24 Feb 2002 01:14:55 +0000
parents 96f6a6230fe9
children e72807f0a579
files lisp/calc/calcalg2.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calcalg2.el	Sun Feb 24 00:24:37 2002 +0000
+++ b/lisp/calc/calcalg2.el	Sun Feb 24 01:14:55 2002 +0000
@@ -3142,7 +3142,7 @@
 		(math-mul (list 'calcFunc-as var-GenCount) val)
 	      (setq var-GenCount (math-add var-GenCount 1))
 	      (calc-refresh-evaltos 'var-GenCount))
-	  (let* ((var (concat "s" (math-get-from-counter 'solve-sign)))
+	  (let* ((var (concat "s" (int-to-string (math-get-from-counter 'solve-sign))))
 		 (var2 (list 'var (intern var) (intern (concat "var-" var)))))
 	    (if (eq solve-full 'all)
 		(setq math-solve-ranges (cons (list var2 1 -1)