From 236d2dea8b02a420ced7f5f76fe111c1064eadee Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Thu, 29 Apr 2021 09:25:26 +0200
Subject: [PATCH] Add default argument

---
 fancy/format.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fancy/format.ss b/fancy/format.ss
index ae83a9f..a27d7a2 100644
--- a/fancy/format.ss
+++ b/fancy/format.ss
@@ -81,7 +81,7 @@
     ((? (lambda (t) (assgetq t +basic-bg-colors+)) => code) (format "4~d" code))
     (else #!void)))
 
-(def (graphics-style style)
+(def (graphics-style (style []))
   (def colors (lset-intersection eq? style (map car +basic-colors+)))
   (def bg-colors (lset-intersection eq? style (map car +basic-bg-colors+)))
   (def style-without-colors (lset-difference eq? style