From: grue 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!