Mercurial > emacs

comparison lisp/calc/calcalg3.el @ 43488:395cff3e82cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-invent-variables): Convert integer to string.
author Colin Walters <walters@gnu.org>
date Sat, 23 Feb 2002 21:33:19 +0000
parents fcd507927105
children f4d68f97221e
comparison
equal deleted inserted replaced
43487:8084180ea261 43488:395cff3e82cd
326 (n num) (nn 0) 326 (n num) (nn 0)
327 var) 327 var)
328 (while (and (> n 0) names) 328 (while (and (> n 0) names)
329 (setq var (math-build-var-name (if (consp names) 329 (setq var (math-build-var-name (if (consp names)
330 (car names) 330 (car names)
331 (concat base (setq nn (1+ nn)))))) 331 (concat base (int-to-string
332 (setq nn (1+ nn)))))))
332 (or (math-expr-contains (cons 'vec but) var) 333 (or (math-expr-contains (cons 'vec but) var)
333 (setq vars (cons var vars) 334 (setq vars (cons var vars)
334 n (1- n))) 335 n (1- n)))
335 (or (symbolp names) (setq names (cdr names)))) 336 (or (symbolp names) (setq names (cdr names))))
336 (if (= n 0) 337 (if (= n 0)