fix a bug in color padding code

closes PR 13153
2012-10-01 22:52:54 -05:00 · 2012-10-01 22:52:54 -05:00 · d0f981f9cb
commit d0f981f9cb
parent 64bac4e573
1 changed files with 1 additions and 1 deletions
--- a/collects/redex/private/traces.rkt
+++ b/collects/redex/private/traces.rkt
@ -391,7 +391,7 @@
  ;; produces a list whose length matches defaults but
  (define (fill-out l defaults)
    (let loop ([l l]
-               [default defaults])
+               [defaults defaults])
      (cond
        [(null? l) defaults]
        [else