Fix warn-on-reflection issues

main
Eric Ihli 4 years ago
parent 76e7fc4318
commit cefdb24da9

@ -5,6 +5,8 @@
[clojure.set :as set])
(:import (com.sun.speech.freetts.en.us CMULexicon)))
#_(set! *warn-on-reflection* true)
;; From http://svn.code.sf.net/p/cmusphinx/code/trunk/cmudict/cmudict-0.7b.phones
(def phonemap
@ -166,7 +168,10 @@
(mapv
(fn [phoneme]
(->> phoneme
(#(if (.equals % "ax") "ah" %))
(fn [^String phoneme]
(if (.equals phoneme "ax")
"ah"
phoneme))
string/upper-case
(#(if (vowel %) (str % "0") %))))
phonemes))

@ -3,7 +3,7 @@
[com.owoga.phonetics.util :as util]
[clojure.string :as string]))
(set! *warn-on-reflection* true)
#_(set! *warn-on-reflection* true)
;; This sonority hierarchy may not be perfect.
;; It stems from: http://www.glottopedia.org/index.php/Sonority_hierarchy

@ -1,5 +1,7 @@
(ns com.owoga.phonetics.util)
#_(set! *warn-on-reflection* true)
(defn take-through
"(take-through even? [1 2 3 4 7 7 5 2 8 10])
returns '((1 2 3 4) (7 7 5 2) (8) (10))"

Loading…
Cancel
Save