IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/scm/path.scm (gnc:locale-prefixes): () -> '().

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5642 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-14 17:53:33 +00:00
parent 013a2f69df
commit f6ae2a7f0f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/scm/path.scm
View File

@ -17,8 +17,8 @@
(define (gnc:locale-prefixes)
(let* ((locale (setlocale LC_MESSAGES))
(strings (cond ((not (string? locale)) ())
((equal? locale "C") ())
(strings (cond ((not (string? locale)) '())
((equal? locale "C") '())
((<= (string-length locale) 2) (list locale))
(else (list (substring locale 0 2) locale)))))
(reverse (cons "C" strings))))