app-accessibility/festival/files/festival-1.96_beta-init-scm.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

--- festival/lib/init.scm	2006-09-15 01:34:32.000000000 -0500
+++ festival/lib/init.scm	2006-09-15 01:50:30.000000000 -0500
@@ -52,8 +52,8 @@
 
 ;;;  A chance to set various variables to a local setting e.g.
 ;;;  lexdir, voices_dir audio etc etc.
-(if (probe_file (path-append libdir "sitevars.scm"))
-    (load (path-append libdir "sitevars.scm")))
+(if (probe_file "/etc/festival/sitevars.scm")
+    (load "/etc/festival/sitevars.scm"))
 
 ;;; CSTR siod extensions
 (require 'cstr)
@@ -133,8 +133,8 @@
 ;;;
 ;;;  Local site initialization, if the file exists load it
 ;;;
-(if (probe_file (path-append libdir "siteinit.scm"))
-    (load (path-append libdir "siteinit.scm")))
+(if (probe_file "/etc/festival/siteinit.scm")
+    (load "/etc/festival/siteinit.scm"))
 
 ;;;  User initialization, if a user has a personal customization
 ;;;  file loaded it