r23723 - gnucash/trunk/src/report/standard-reports - Advanced Portfolio: Don't leak prices.

[Mike Alexander]

Author: mta
Date: 2014-01-19 17:40:17 -0500 (Sun, 19 Jan 2014)
New Revision: 23723
Trac: http://svn.gnucash.org/trac/changeset/23723

Modified:
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
Log:
Advanced Portfolio: Don't leak prices.

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2014-01-19 22:40:11 UTC (rev 23722)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2014-01-19 22:40:17 UTC (rev 23723)
@@ -828,11 +828,14 @@
 	       row-style
 	       activecols)
 	        
+              (if (and (not use-txn) price) (gnc-price-unref price))
 	      (table-add-stock-rows-internal rest (not odd-row?))
 	      )
-	    (table-add-stock-rows-internal rest odd-row?)
+	    (begin
+	      (if (and (not use-txn) price) (gnc-price-unref price))
+	      (table-add-stock-rows-internal rest odd-row?)
+	      )
             )
-            (if (and (not use-txn) price) (gnc-price-unref price))
 	    )))
 
     (set! work-to-do (gnc:accounts-count-splits accounts))