HomeAboutCodePastes
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordieggsy <dieggsy@protonmail.com>2020-12-19 00:54:58 -0500
committerdieggsy <dieggsy@protonmail.com>2020-12-19 00:54:58 -0500
commit499907724354e9f9ed2c22a4ff99abe3b6d6c22d (patch)
tree6752200cc8fbb2017ce9fa8695328f0c7a45d442
parenta6809662248b50d9043a8b0944f977d05c4bddcc (diff)
downloadchicken-espeak-499907724354e9f9ed2c22a4ff99abe3b6d6c22d.tar.gz
Change the way we handle separator default0.1.4
-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 525a1e5..7c42515 100644
--- a/espeak.release-info
+++ b/espeak.release-info
@@ -1,5 +1,6 @@
;; -*- mode: scheme -*-
(uri targz "https://code.dieggsy.com/chicken-{egg-name}/snapshot/chicken-{egg-name}-{egg-release}.tar.gz")
+(release "0.1.4")
(release "0.1.3")
(release "0.1.2")
(release "0.1.1")
diff --git a/espeak.scm b/espeak.scm
index 486e9c6..6689f5f 100644
--- a/espeak.scm
+++ b/espeak.scm
@@ -368,11 +368,11 @@
#!key
ipa
tie
- (separator #\null))
+ separator)
(initialize)
(let* ((mode (bitwise-xor (if ipa #b10 0)
(if tie #b10000000 0)
- (arithmetic-shift (char->integer separator) 8))))
+ (arithmetic-shift (char->integer (or separator #\null)) 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))