diff options
| author | Colin Walters <walters@gnu.org> | 2002-02-18 20:06:20 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-02-18 20:06:20 +0000 |
| commit | 68ffbbe95494030ccbd2e1cd20c82199669f59a2 (patch) | |
| tree | faee1a887329545acd259ccb191b8134186f8b0a /lisp | |
| parent | 12924128f0181f9f40a7801b1eceea76207aea29 (diff) | |
| download | emacs-68ffbbe95494030ccbd2e1cd20c82199669f59a2.tar.gz | |
(math-solve-get-int): Convert return value from
`math-get-from-counter' to a string before calling `concat' on it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calcalg2.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |