/[emacs]/emacs/lisp/calc/calcalg2.el
ViewVC logotype

Diff of /emacs/lisp/calc/calcalg2.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by walters, Mon Feb 18 20:06:20 2002 UTC revision 1.5 by walters, Sun Feb 24 01:14:55 2002 UTC
# Line 3142  Line 3142 
3142                  (math-mul (list 'calcFunc-as var-GenCount) val)                  (math-mul (list 'calcFunc-as var-GenCount) val)
3143                (setq var-GenCount (math-add var-GenCount 1))                (setq var-GenCount (math-add var-GenCount 1))
3144                (calc-refresh-evaltos 'var-GenCount))                (calc-refresh-evaltos 'var-GenCount))
3145            (let* ((var (concat "s" (math-get-from-counter 'solve-sign)))            (let* ((var (concat "s" (int-to-string (math-get-from-counter 'solve-sign))))
3146                   (var2 (list 'var (intern var) (intern (concat "var-" var)))))                   (var2 (list 'var (intern var) (intern (concat "var-" var)))))
3147              (if (eq solve-full 'all)              (if (eq solve-full 'all)
3148                  (setq math-solve-ranges (cons (list var2 1 -1)                  (setq math-solve-ranges (cons (list var2 1 -1)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26