/[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.3 by walters, Mon Nov 19 07:43:15 2001 UTC revision 1.4 by walters, Mon Feb 18 20:06:20 2002 UTC
# Line 3160  Line 3160 
3160                (math-mul val (list 'calcFunc-an var-GenCount))                (math-mul val (list 'calcFunc-an var-GenCount))
3161              (setq var-GenCount (math-add var-GenCount 1))              (setq var-GenCount (math-add var-GenCount 1))
3162              (calc-refresh-evaltos 'var-GenCount))              (calc-refresh-evaltos 'var-GenCount))
3163          (let* ((var (concat "n" (math-get-from-counter 'solve-int)))          (let* ((var (concat "n" (int-to-string
3164                                     (math-get-from-counter 'solve-int))))
3165                 (var2 (list 'var (intern var) (intern (concat "var-" var)))))                 (var2 (list 'var (intern var) (intern (concat "var-" var)))))
3166            (if (and range (eq solve-full 'all))            (if (and range (eq solve-full 'all))
3167                (setq math-solve-ranges (cons (cons var2                (setq math-solve-ranges (cons (cons var2

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

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