r16096 - gnucash/trunk/src/scm - Correct the checks for gnc:*finance-quote-{check, helper}* to use string-null?.

[Andreas Köhler]

Author: andi5
Date: 2007-05-18 10:54:24 -0400 (Fri, 18 May 2007)
New Revision: 16096
Trac: http://svn.gnucash.org/trac/changeset/16096

Modified:
   gnucash/trunk/src/scm/price-quotes.scm
Log:
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 '().


Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2007-05-18 14:54:19 UTC (rev 16095)
+++ gnucash/trunk/src/scm/price-quotes.scm	2007-05-18 14:54:24 UTC (rev 16096)
@@ -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))))