From d692a63792c9a1decb6b70882664ecd07dadc961 Mon Sep 17 00:00:00 2001 From: grue Date: Mon, 13 Feb 2006 20:51:26 +0000 Subject: [PATCH] run-action no-output mode darcs-hash:1da46fb148a19439ed777d162b82a8c9740bfb01 --- if.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/if.lisp b/if.lisp index 5664a60..f3403dc 100644 --- a/if.lisp +++ b/if.lisp @@ -958,14 +958,15 @@ word in dictionary, add it." ;;React after? t) -(defun run-action (action args &key (time 0)) +(defun run-action (action args &key (time 0) no-output) "Run an action with a given args" (unless (listp args) (setf args (list args))) (setf *after* nil) (let ((*action* action) (*args* args) (*noun* (first args)) - (*second* (second args))) + (*second* (second args)) + (*no-output* no-output)) (when *debug* (format t "[running action: ~a ~a]~%" *action* *args*)) (when *meta* ;;Just do the darn thing! -- 2.31.1