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

@ -100,9 +100,9 @@
that set of lines will be appended to and returned. If initial-output is specified, that set of lines will be appended to and returned. If initial-output is specified,
that collection should have the same size as the flf font height." that collection should have the same size as the flf font height."
[flf ^Character c & [initial-output]] [flf ^Character c & [initial-output]]
(let [output-lines (or initial-output (get-initial-output-lines flf)) (let [output-lines (or initial-output (get-initial-output-lines flf))
char-lines (get-in flf [:chars c]) 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 (if char-lines
(map (map
(fn [^String char-line ^String output-line] (fn [^String char-line ^String output-line]