From: grue <grue@mail.ru>
Date: Mon, 13 Feb 2006 20:51:26 +0000 (+0000)
Subject: run-action no-output mode
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=d692a63792c9a1decb6b70882664ecd07dadc961;p=lifp.git

run-action no-output mode

darcs-hash:1da46fb148a19439ed777d162b82a8c9740bfb01
---

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!