HomeAboutCodePastes
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))