diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-31 11:33:06 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-31 11:33:06 +0100 |
commit | 2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869 (patch) | |
tree | 78da51a4f033f8431460658b2066a484a91c55a7 /module/output/general.scm | |
parent | Delete old srfi-19 extensions. (diff) | |
download | calp-2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869.tar.gz calp-2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869.tar.xz |
Work.
Diffstat (limited to '')
-rw-r--r-- | module/output/general.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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" ))) |