HomeAboutCodePastes
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordieggsy <dieggsy@protonmail.com>2020-12-18 23:43:50 -0500
committerdieggsy <dieggsy@protonmail.com>2020-12-18 23:45:45 -0500
commitf090ddd238cdf9d2df2482c991a14ca3a7bde3da (patch)
tree26fedc07bc68e355e8d84e7951074a99b808d0ed
parentb31cf0db51ae517759534510cbb61e9679f23c9d (diff)
downloadchicken-espeak-f090ddd238cdf9d2df2482c991a14ca3a7bde3da.tar.gz
Fix a bug with tie: option in text->phonemes0.1.2
-rw-r--r--espeak.release-info1
-rw-r--r--espeak.scm4
2 files changed, 3 insertions, 2 deletions
diff --git a/espeak.release-info b/espeak.release-info
index d7f68cb..b0d40c0 100644
--- a/espeak.release-info
+++ b/espeak.release-info
@@ -1,4 +1,5 @@
;; -*- mode: scheme -*-
(uri targz "https://code.dieggsy.com/chicken-{egg-name}/snapshot/chicken-{egg-name}-{egg-release}.tar.gz")
+(release "0.1.2")
(release "0.1.1")
(release "0.1.0")
diff --git a/espeak.scm b/espeak.scm
index 6a8b94d..c5f8f5f 100644
--- a/espeak.scm
+++ b/espeak.scm
@@ -372,13 +372,13 @@
(separator #\null))
(initialize)
(let* ((mode (bitwise-xor (if ipa #b10 0)
- (if tie #b1000000 0)
+ (if tie #b10000000 0)
(arithmetic-shift (char->integer separator) 8))))
(when (not (voice-language (get-current-voice)))
(set-voice-by-properties! (get-current-voice)))
((foreign-lambda* c-string (((const c-string) input) (int mode))
"const void *ptr = input;
- C_return(espeak_TextToPhonemes(&ptr, espeakCHARS_AUTO, mode));")
+ C_return(espeak_TextToPhonemes(&ptr, espeakCHARS_AUTO, mode));")
input mode)))
(define-external (make_voice_list (c-pointer lst)) scheme-object