HomeAboutCodePastes
summaryrefslogtreecommitdiff
path: root/espeak.scm
diff options
context:
space:
mode:
Diffstat (limited to 'espeak.scm')
-rw-r--r--espeak.scm4
1 files changed, 2 insertions, 2 deletions
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))