From 1e0508b41076f0bb157d9f94da4b771dab71ddd5 Mon Sep 17 00:00:00 2001
From: LordMZTE <lord@mzte.de>
Date: Thu, 4 May 2023 23:26:57 +0200
Subject: [PATCH] setup: improve UX

---
 setup/common.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/setup/common.rkt b/setup/common.rkt
index 0534511..770f6d8 100644
--- a/setup/common.rkt
+++ b/setup/common.rkt
@@ -15,7 +15,10 @@
 
 (define (display-function-call func args)
   (when (log-calls)
-    (printf "\x1b[1;30m(~s ~a)\x1b[0m\n" func (apply ~a #:separator " " args))))
+    (fprintf (current-error-port)
+             "\x1b[1;30m(\x1b[1;32m~s \x1b[1;33m~a\x1b[1;30m)\x1b[0m\n"
+             func
+             (apply ~a #:separator " " args))))
 
 ;; Defines an alias to a function which will log it's parameters on invokation.
 (define-syntax-rule (define-logging name func)