fix contracts

This commit is contained in:
Robby Findler 2014-07-25 20:35:16 -05:00
parent 7fca5f8064
commit 804b558e05

View File

@ -54,9 +54,9 @@
[current-base-color (parameter/c (or/c string? (is-a?/c color%)))]
[current-reader-forms (parameter/c (listof symbol?))]
[code-align (-> pict? pict?)]
[current-keyword-list (parameter/c string?)]
[current-const-list (parameter/c string?)]
[current-literal-list (parameter/c string?)]))
[current-keyword-list (parameter/c (listof string?))]
[current-const-list (parameter/c (listof string?))]
[current-literal-list (parameter/c (listof string?))]))
(provide define-exec-code/scale
define-exec-code)