localize.fnl

(global localize {})

(local synonyms-table
  {:print ["печать" "drucken"]})

(fn synonym [function]
  (fn [...] `(,(sym function) ,(unpack [...]))))

(each [english-name synonyms (pairs synonyms-table)]
  (each [_ synonym-name (ipairs synonyms)]
    (tset localize synonym-name (synonym english-name))))

localize