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

Correct the checks for gnc:*finance-quote-{check,helper}* to use string-null?.

Browse Source 
g-find-program-in-path returns a string---it may be empty but not #f or '().


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16096 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2007-05-18 14:54:24 +00:00
parent 3000cdacb5
commit c8a63e3c73
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/price-quotes.scm
View File

@ -247,7 +247,7 @@
(from-child #f))
(define (start-program)
(if (not (null? gnc:*finance-quote-check*))
(if (not (string-null? gnc:*finance-quote-check*))
(set! program (gnc-spawn-process-async
(list "perl" "-w" gnc:*finance-quote-check*) #t))))
@ -331,7 +331,7 @@
(from-child #f))
(define (start-quoter)
(if (not (null? gnc:*finance-quote-helper*))
(if (not (string-null? gnc:*finance-quote-helper*))
(set! quoter (gnc-spawn-process-async
(list "perl" "-w" gnc:*finance-quote-helper*) #t))))