fix a bug in color padding code
closes PR 13153
This commit is contained in:
parent
64bac4e573
commit
d0f981f9cb
|
@ -391,7 +391,7 @@
|
||||||
;; produces a list whose length matches defaults but
|
;; produces a list whose length matches defaults but
|
||||||
(define (fill-out l defaults)
|
(define (fill-out l defaults)
|
||||||
(let loop ([l l]
|
(let loop ([l l]
|
||||||
[default defaults])
|
[defaults defaults])
|
||||||
(cond
|
(cond
|
||||||
[(null? l) defaults]
|
[(null? l) defaults]
|
||||||
[else
|
[else
|
||||||
|
|
Loading…
Reference in New Issue
Block a user