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