Lines Matching defs:vars
505 ;; The variables math-regs, math-num-regs, math-prog-last, math-bound-vars,
507 ;; math-aliased-vars are local to math-compile-rewrites,
513 (defvar math-bound-vars)
519 (defvar math-aliased-vars)
647 (math-bound-vars nil)
648 (math-aliased-vars nil)
673 (math-rwcomp-match-vars math-rhs))
808 (defun math-rwcomp-match-vars (expr)
818 (math-rwcomp-match-vars (nth 1 expr))
824 (mapcar 'math-rwcomp-match-vars (cdr (nth 1 expr)))))
826 (mapcar 'math-rwcomp-match-vars (cdr expr)))))))
879 (setq math-bound-vars (cons (nth 2 var) math-bound-vars))
882 (defun math-rwcomp-unbind-vars (mark)
883 (while (not (eq math-bound-vars mark))
884 (setcar (assq (car math-bound-vars) math-regs) nil)
885 (setq math-bound-vars (cdr math-bound-vars))))
901 (eq (car-safe (setq arg (math-rwcomp-match-vars (nth 1 expr))))
904 ((math-numberp (setq expr (math-rwcomp-match-vars expr)))
988 (cond ((or (math-rwcomp-no-vars expr)
1005 (if (setq entry (assq (nth 2 expr) math-aliased-vars))
1079 (mark math-bound-vars)
1082 (let ((amark math-aliased-vars)
1083 (math-aliased-vars math-aliased-vars)
1085 (p math-bound-vars)
1089 math-aliased-vars (cons (list (car p) (nth 1 entry) nil)
1090 math-aliased-vars)
1099 (setq p math-aliased-vars)
1110 (mark math-bound-vars))
1112 (math-rwcomp-unbind-vars mark)
1224 (let ((entry (assq (nth 2 x) math-aliased-vars)))
1251 (defun math-rwcomp-no-vars (expr)
1263 (math-rwcomp-no-vars (car expr))))
1349 ((math-rwcomp-no-vars expr)
2105 (if (math-rwcomp-no-vars old)