fixup! Fix bug from refactor

main
Eric Ihli 3 years ago
parent d0cf546bf7
commit a93544a9c3

@ -35,22 +35,22 @@
;; Two vowels next to each other is treated as two syllables.
;; This might not always be the case if the vowels are lax.
;; Is "royal" 1 syllable or two? This treats it as two.
(vowel? (nth phones 0))
(phonetics/vowel? (nth phones 0))
[syllable phones]
;; Maximal onset principle with exception for lax vowels occurring in
;; closed syllables.
(and (consonant? (nth syllable 0))
(<sonorous (nth phones 0) (nth syllable 0))
(not (lax-vowels (nth phones 1 nil))))
(and (phonetics/consonant? (nth syllable 0))
(phonetics/<sonorous (nth phones 0) (nth syllable 0))
(not (phonetics/lax-vowels (nth phones 1 nil))))
(recur (subvec phones 1)
(into [(nth phones 0)] syllable))
(vowel? (nth syllable 0))
(phonetics/vowel? (nth syllable 0))
(recur (subvec phones 1)
(into [(nth phones 0)] syllable))
(not-any? vowel? phones)
(not-any? phonetics/vowel? phones)
(recur (subvec phones 1)
(into [(nth phones 0)] syllable))

Loading…
Cancel
Save