From a9c76ab2e69f142190c04dc01a452dcd227a7e20 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sun, 24 Feb 2002 01:14:55 +0000 Subject: [PATCH] (math-solve-get-sign): Convert integer to string. --- lisp/calc/calcalg2.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el index 0b21dd86f74..34d801bc276 100644 --- a/lisp/calc/calcalg2.el +++ b/lisp/calc/calcalg2.el @@ -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) -- 2.39.2