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/main.scm: guile-1.6 requires empty lists to be quoted

Browse Source 
(fixes debian bug #186188)


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8182 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins
2003-04-03 16:15:34 +00:00
parent 16d283bcb4
commit 20b18eff5c
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@@ -1,3 +1,8 @@
2003-04-03 Derek Atkins <derek@ihtfp.com>
* src/scm/main.scm: guile-1.6 requires empty lists to be quoted
(fixes debian bug #186188)
2003-04-03 Benoit Gr<47>goire <bock@step.polymtl.ca>
* src/import-export/import-commodity-matcher.c: Fix debian bug #187061

4
src/scm/main.scm
View File

@@ -327,8 +327,8 @@ string and 'directories' must be a list of strings."
;; LC_ALL for those systems.
(let* ((locale (or (false-if-exception (setlocale LC_MESSAGES))
(setlocale LC_ALL)))
(strings (cond ((not (string? locale)) ())
((equal? locale "C") ())
(strings (cond ((not (string? locale)) '())
((equal? locale "C") '())
((<= (string-length locale) 4) (list locale))
(else (list (substring locale 0 2)
(substring locale 0 5)