[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el |
Date: |
Sat, 23 Feb 2002 20:14:56 -0500 |
Index: emacs/lisp/calc/calcalg2.el
diff -c emacs/lisp/calc/calcalg2.el:1.4 emacs/lisp/calc/calcalg2.el:1.5
*** emacs/lisp/calc/calcalg2.el:1.4 Mon Feb 18 15:06:20 2002
--- emacs/lisp/calc/calcalg2.el Sat Feb 23 20:14:55 2002
***************
*** 3142,3148 ****
(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)))
(var2 (list 'var (intern var) (intern (concat "var-" var)))))
(if (eq solve-full 'all)
(setq math-solve-ranges (cons (list var2 1 -1)
--- 3142,3148 ----
(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" (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)