fix: verb declensions in correct order
Some checks failed
CI / build (29.4) (push) Failing after 1m8s
CI / build (snapshot) (push) Failing after 54s

This commit is contained in:
Lucien Cartier-Tilet 2024-09-14 14:51:56 +02:00
parent 1b19aea505
commit 3674d11cd2
Signed by: phundrak
GPG Key ID: 347803E8073EACE0

View File

@ -285,14 +285,13 @@ agrees with."
| 2p | | %s | %s | %s | %s |
| 3p | | %s | %s | %s | %s |"
root root (concat root "ask") (concat root "and") (concat root "it")
,@(let (accessor i)
(reverse (dolist (declension
'(indicative-present subjunctive-present past passive)
accessor)
(setq i 0)
(while (< i 6)
(push `(nth ,i ,declension) accessor)
(setq i (1+ i))))))))
,@(reverse
(let (accessor (i 0))
(while (< i 6)
(dolist (declension '(indicative-present subjunctive-present past passive))
(push `(nth ,i ,declension) accessor))
(setq i (1+ i)))
accessor))))
(defun conlanging-eittlandic--make-passive-verb-declension (root strength underlying-vowel passive-consonant passive-vowel)
"Create a verb declension for the passive mood.