Lines Matching refs:var
439 (let ((var (intern (concat "var-q" (car cmd)))))
440 (cond ((equal input "STO+") (calc-store-plus var))
441 ((equal input "STO-") (calc-store-minus var))
442 ((equal input "STO*") (calc-store-times var))
443 ((equal input "STO/") (calc-store-div var))
444 ((equal input "STO^") (calc-store-power var))
445 ((equal input "STOn") (calc-store-neg 1 var))
446 ((equal input "STO&") (calc-store-inv 1 var))
447 ((equal input "STO") (calc-store-into var))
448 (t (calc-recall var)))))