Mercurial > emacs
comparison lisp/calc/calcalg2.el @ 43404:36c14bc6e7fb
(math-solve-get-int): Convert return value from
`math-get-from-counter' to a string before calling `concat' on it.
author | Colin Walters <walters@gnu.org> |
---|---|
date | Mon, 18 Feb 2002 20:06:20 +0000 |
parents | fcd507927105 |
children | 43be8de143a2 |
comparison
equal
deleted
inserted
replaced
43403:fef73ecd984e | 43404:36c14bc6e7fb |
---|---|
3158 (not (eq solve-full 'all))) | 3158 (not (eq solve-full 'all))) |
3159 (prog1 | 3159 (prog1 |
3160 (math-mul val (list 'calcFunc-an var-GenCount)) | 3160 (math-mul val (list 'calcFunc-an var-GenCount)) |
3161 (setq var-GenCount (math-add var-GenCount 1)) | 3161 (setq var-GenCount (math-add var-GenCount 1)) |
3162 (calc-refresh-evaltos 'var-GenCount)) | 3162 (calc-refresh-evaltos 'var-GenCount)) |
3163 (let* ((var (concat "n" (math-get-from-counter 'solve-int))) | 3163 (let* ((var (concat "n" (int-to-string |
3164 (math-get-from-counter 'solve-int)))) | |
3164 (var2 (list 'var (intern var) (intern (concat "var-" var))))) | 3165 (var2 (list 'var (intern var) (intern (concat "var-" var))))) |
3165 (if (and range (eq solve-full 'all)) | 3166 (if (and range (eq solve-full 'all)) |
3166 (setq math-solve-ranges (cons (cons var2 | 3167 (setq math-solve-ranges (cons (cons var2 |
3167 (cdr (calcFunc-index | 3168 (cdr (calcFunc-index |
3168 range (or first 0)))) | 3169 range (or first 0)))) |