From 7fcf6a1301ab0b149a1427ed3d616a715bdb1029 Mon Sep 17 00:00:00 2001
From: Mike Alexander <mta@umich.edu>
Date: Fri, 6 Nov 2015 22:43:00 -0500
Subject: [PATCH] Make sure commodity-tz-quote-triple->price always returns a
 value.

Because of misplaced parens it was not returning a value if no price
for the same day was in the price DB.
---
 src/scm/price-quotes.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm
index b161dcfcc9..2ab32e4c15 100644
--- a/src/scm/price-quotes.scm
+++ b/src/scm/price-quotes.scm
@@ -433,21 +433,21 @@
                         (gnc-price-set-value saved-price price)
                         (gnc-price-commit-edit saved-price)
                         #f)
-                      #f)
-                  (let ((gnc-price (gnc-price-create book)))
-                    (if (not gnc-price)
-                        (string-append
-                         currency-str ":" (gnc-commodity-get-mnemonic commodity))
-                        (begin
-                          (gnc-price-begin-edit gnc-price)
-                          (gnc-price-set-commodity gnc-price commodity)
-                          (gnc-price-set-currency gnc-price currency)
-                          (gnc-price-set-time gnc-price gnc-time)
-                          (gnc-price-set-source gnc-price PRICE-SOURCE-FQ)
-                          (gnc-price-set-typestr gnc-price price-type)
-                          (gnc-price-set-value gnc-price price)
-                          (gnc-price-commit-edit gnc-price)
-                          gnc-price)))))
+                      #f))
+                (let ((gnc-price (gnc-price-create book)))
+                  (if (not gnc-price)
+                      (string-append
+                       currency-str ":" (gnc-commodity-get-mnemonic commodity))
+                      (begin
+                        (gnc-price-begin-edit gnc-price)
+                        (gnc-price-set-commodity gnc-price commodity)
+                        (gnc-price-set-currency gnc-price currency)
+                        (gnc-price-set-time gnc-price gnc-time)
+                        (gnc-price-set-source gnc-price PRICE-SOURCE-FQ)
+                        (gnc-price-set-typestr gnc-price price-type)
+                        (gnc-price-set-value gnc-price price)
+                        (gnc-price-commit-edit gnc-price)
+                        gnc-price))))
             ))
       ))