From 2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 31 Jan 2020 11:33:06 +0100 Subject: Work. --- module/output/general.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/output/general.scm') diff --git a/module/output/general.scm b/module/output/general.scm index 4d9b4ce8..e2f73991 100644 --- a/module/output/general.scm +++ b/module/output/general.scm @@ -6,6 +6,7 @@ (catch #t (lambda () (define (str->num c n) (string->number (substring/shared c n (+ n 2)) 16)) + ;; (format (current-error-port) "COLOR = ~s~%" c) (let ((r (str->num c 1)) (g (str->num c 3)) (b (str->num c 5))) @@ -15,6 +16,6 @@ #xFF)) "#000000" "#e5e8e6"))) (lambda args - (format (current-error-port) "Error calculating foreground color?~%~a~%" args) + (format (current-error-port) "Error calculating foreground color?~%~s~%" args) "#FF0000" ))) -- cgit v1.2.3