add type hint to avoid reflection

This commit is contained in:
Gered 2014-03-29 18:11:17 -04:00
parent f6c9cf94d1
commit db3e5d4a58

View file

@ -102,7 +102,7 @@
[flf ^Character c & [initial-output]]
(let [output-lines (or initial-output (get-initial-output-lines flf))
char-lines (get-in flf [:chars c])
hardblank (get-in flf [:header :hardblank-str])]
^String hardblank (get-in flf [:header :hardblank-str])]
(if char-lines
(map
(fn [^String char-line ^String output-line]