Lines Matching refs:action
67 (let ((action (car list)))
69 ((eq (car action) 'push)
70 (calc-pop-stack 1 (nth 1 action) t))
71 ((eq (car action) 'pop)
72 (calc-push-list (nth 2 action) (nth 1 action)))
73 ((eq (car action) 'set)
74 (calc-record-undo (list 'set (nth 1 action)
75 (symbol-value (nth 1 action))))
76 (set (nth 1 action) (nth 2 action)))
77 ((eq (car action) 'store)
78 (let ((v (intern (nth 1 action))))
79 (calc-record-undo (list 'store (nth 1 action)
82 (calc-var-name (nth 1 action))))
84 (if (nth 2 action)
85 (set v (nth 2 action))
88 ((eq (car action) 'eval)
89 (calc-record-undo (append (list 'eval (nth 2 action) (nth 1 action))
90 (cdr (cdr (cdr action)))))
91 (apply (nth 1 action) (cdr (cdr (cdr action))))))
132 (let ((action (car list)))
133 (if (eq (car action) 'pop)
135 (delq 'top-of-stack (nth 2 action))))