diff options
| author | Colin Walters | 2002-02-24 01:14:55 +0000 |
|---|---|---|
| committer | Colin Walters | 2002-02-24 01:14:55 +0000 |
| commit | a9c76ab2e69f142190c04dc01a452dcd227a7e20 (patch) | |
| tree | d95daffd23fca9978f2c9468e1f8a1398f60334b | |
| parent | 5f245371188ff7793c3d5a79a0d38efd2e04bc57 (diff) | |
| download | emacs-a9c76ab2e69f142190c04dc01a452dcd227a7e20.tar.gz emacs-a9c76ab2e69f142190c04dc01a452dcd227a7e20.zip | |
(math-solve-get-sign): Convert integer to string.
| -rw-r--r-- | lisp/calc/calcalg2.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 3142 | (math-mul (list 'calcFunc-as var-GenCount) val) | 3142 | (math-mul (list 'calcFunc-as var-GenCount) val) |
| 3143 | (setq var-GenCount (math-add var-GenCount 1)) | 3143 | (setq var-GenCount (math-add var-GenCount 1)) |
| 3144 | (calc-refresh-evaltos 'var-GenCount)) | 3144 | (calc-refresh-evaltos 'var-GenCount)) |
| 3145 | (let* ((var (concat "s" (math-get-from-counter 'solve-sign))) | 3145 | (let* ((var (concat "s" (int-to-string (math-get-from-counter 'solve-sign)))) |
| 3146 | (var2 (list 'var (intern var) (intern (concat "var-" var))))) | 3146 | (var2 (list 'var (intern var) (intern (concat "var-" var))))) |
| 3147 | (if (eq solve-full 'all) | 3147 | (if (eq solve-full 'all) |
| 3148 | (setq math-solve-ranges (cons (list var2 1 -1) | 3148 | (setq math-solve-ranges (cons (list var2 1 -1) |