HomeAboutCodePastes
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordieggsy <dieggsy@protonmail.com>2020-12-19 00:28:30 -0500
committerdieggsy <dieggsy@protonmail.com>2020-12-19 00:28:30 -0500
commita6809662248b50d9043a8b0944f977d05c4bddcc (patch)
treef81ff42980934ae5616784b13bcecaf5877dae74
parentf090ddd238cdf9d2df2482c991a14ca3a7bde3da (diff)
downloadchicken-espeak-a6809662248b50d9043a8b0944f977d05c4bddcc.tar.gz
Fix default value of end-position0.1.3
-rw-r--r--espeak.release-info1
-rw-r--r--espeak.scm23
2 files changed, 12 insertions, 12 deletions
diff --git a/espeak.release-info b/espeak.release-info
index b0d40c0..525a1e5 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.3")
(release "0.1.2")
(release "0.1.1")
(release "0.1.0")
diff --git a/espeak.scm b/espeak.scm
index c5f8f5f..486e9c6 100644
--- a/espeak.scm
+++ b/espeak.scm
@@ -256,7 +256,7 @@
(define (synth text #!key
(position 0)
(position-type pos/char)
- (end-position #f)
+ (end-position 0)
(ssml #f)
(phonemes #f)
(endpause #f))
@@ -275,18 +275,17 @@
;; Not exactly sure how this one works?
(define (synth-mark text
- index-mark
- #!key
- (end-position #f)
- (ssml #f)
- (phonemes #f)
- (endpause #f))
+ index-mark
+ #!key
+ (end-position 0)
+ (ssml #f)
+ (phonemes #f)
+ (endpause #f))
(initialize)
- (let* ((end-position (or end-position 0))
- (flags (bitwise-xor
- (if ssml espeakSSML 0)
- (if phonemes espeakPHONEMES 0)
- (if endpause espeakENDPAUSE 0))))
+ (let ((flags (bitwise-xor
+ (if ssml espeakSSML 0)
+ (if phonemes espeakPHONEMES 0)
+ (if endpause espeakENDPAUSE 0))))
(espeak-error
((foreign-lambda int "espeak_Synth_Mark"
c-string size_t c-string unsigned-int unsigned-int