mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(math-solve-get-sign): Convert integer to string.

Browse source
This commit is contained in:
Colin Walters 2002-02-24 01:14:55 +00:00
parent 5f24537118
commit a9c76ab2e6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/calc/calcalg2.el
View file

@ -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)