run-action no-output mode

darcs-hash:1da46fb148a19439ed777d162b82a8c9740bfb01

diff --git a/if.lisp b/if.lisp
index 5664a60d9a1eddba65200111c3cf5a758c1b9481..f3403dc58c8721186d5bfb2252a57e525799c632 100644 (file)
--- a/if.lisp
+++ b/if.lisp
@@ -958,14 +958,15 @@ word in dictionary, add it."
   ;;React after?\r
   t)\r
 \r
-(defun run-action (action args &key (time 0))\r
+(defun run-action (action args &key (time 0) no-output)\r
   "Run an action with a given args"\r
   (unless (listp args) (setf args (list args)))\r
   (setf *after* nil)\r
   (let ((*action* action)\r
         (*args* args)\r
         (*noun* (first args))\r
-        (*second* (second args)))\r
+        (*second* (second args))\r
+        (*no-output* no-output))\r
     (when *debug* \r
       (format t "[running action: ~a ~a]~%" *action* *args*))\r
     (when *meta* ;;Just do the darn thing!\r