dimitri/fancy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add default argument

Browse source
This commit is contained in:
Dimitri Lozeve 2021-04-29 09:25:26 +02:00
parent 9241d2f983
commit 236d2dea8b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
fancy/format.ss
View file

@ -81,7 +81,7 @@
((? (lambda (t) (assgetq t +basic-bg-colors+)) => code) (format "4~d" code)) ((? (lambda (t) (assgetq t +basic-bg-colors+)) => code) (format "4~d" code))
(else #!void))) (else #!void)))
(def (graphics-style style) (def (graphics-style (style []))
(def colors (lset-intersection eq? style (map car +basic-colors+))) (def colors (lset-intersection eq? style (map car +basic-colors+)))
(def bg-colors (lset-intersection eq? style (map car +basic-bg-colors+))) (def bg-colors (lset-intersection eq? style (map car +basic-bg-colors+)))
(def style-without-colors (lset-difference eq? style (def style-without-colors (lset-difference eq? style