minor change to run to make it more generic

1 files changed, 2 insertions, 2 deletions

diff --git a/util.lisp b/util.lisp
index b97b0fa..e4a9ccb 100644
--- a/util.lisp
+++ b/util.lisp
@@ -20,9 +20,9 @@
 (defun mklist (form)
   (if (listp form) form (list form)))
 
-(defun run (args)
+(defun run (args &rest options)
   (format t "~{~a~^ ~}~%" args)
-  (uiop:run-program args :output *standard-output*))
+  (apply #'uiop:run-program args options))
 
 (defun from-root (path)
   (merge-pathnames path (asdf:system-source-directory :cl-forth)))