From 390948b57245e72dbb1ff1c365b2be909c88ab16 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 2 Jul 2024 08:10:24 +0200
Subject: [PATCH] Init l10n-hash

---
 src/translate.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/translate.lisp b/src/translate.lisp
index a49bfdc..83185ef 100644
--- a/src/translate.lisp
+++ b/src/translate.lisp
@@ -70,8 +70,9 @@
   (loop for (lang translation) on translations by #'cddr
         do (setf (gethash lang (gethash key *l10n-hash*)) translation)))
 
-(dolist (entry *l10n*)
-  (add-translation (first entry) (rest entry)))
+(when (zerop (hash-table-count *l10n-hash*))
+  (dolist (entry *l10n*)
+    (add-translation (first entry) (first (rest entry)))))
 
 (defun get-translation (key lang)
   "Fetch a translation for KEY in the language LANG."