suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use the default language if there was an error reading the preference file

Browse Source 
svn: r11960
This commit is contained in:
Eli Barzilay 2008-10-07 14:07:56 +00:00
parent da1e0f6313
commit 0899471d32
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/string-constants/string-constant.ss
View File

@ -55,15 +55,17 @@
(regexp-match (caddr ent) slc)))
(car ent)
(loop (cdr table))))]))))
;; language : symbol
(define language (get-preference 'plt:human-language (lambda () (default-language))))
(define language
(with-handlers ([exn:fail? (lambda (_) (default-language))])
(get-preference 'plt:human-language (lambda () (default-language)))))
(define-syntax-set (string-constant string-constants this-language all-languages)
;; type sc = (make-sc symbol (listof (list symbol string)) (union #f hash-table[symbol -o> #t]))
(define-struct sc (language-name constants ht))
(define available-string-constant-sets
(list
(make-sc 'english english:string-constants #f)