From c8a63e3c730f84fe1ca53bd13443b848fc92174d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Fri, 18 May 2007 14:54:24 +0000 Subject: [PATCH] Correct the checks for gnc:*finance-quote-{check,helper}* to use string-null?. 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 --- src/scm/price-quotes.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm index f4c6a49a9a..6c4559d0e2 100644 --- a/src/scm/price-quotes.scm +++ b/src/scm/price-quotes.scm @@ -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))))