Commit dff6100a authored by Daniel Kochmański's avatar Daniel Kochmański

translate: fix typo

Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 54b372cb
...@@ -88,13 +88,13 @@ curly brackets." ...@@ -88,13 +88,13 @@ curly brackets."
(cond (cond
((null language) phrase) ((null language) phrase)
(T (ensure-language language T) (T (ensure-language language T)
(with-language language (dict missing missing-fn) (with-language language (dictionary missing missing-fn)
(declare (ignore missing)) (declare (ignore missing))
(multiple-value-bind (result found?) (multiple-value-bind (result found?)
(gethash phrase dictionary (gethash phrase dictionary
(funcall missing-fn phrase)) (funcall missing-fn phrase))
(unless found? (unless found?
(pushnew phrase (second lang) :test 'equal) (pushnew phrase missing :test 'equal)
(warn "Phrase \"~A\" isn't defined for language ~A." (warn "Phrase \"~A\" isn't defined for language ~A."
phrase language)) phrase language))
result))))) result)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment