r22752 - gnucash/trunk/src/scm - Use gnc-commodity-equiv to compare commodites, not equal?

[Mike Alexander]

Author: mta
Date: 2013-02-03 22:15:44 -0500 (Sun, 03 Feb 2013)
New Revision: 22752
Trac: http://svn.gnucash.org/trac/changeset/22752

Modified:
   gnucash/trunk/src/scm/price-quotes.scm
Log:
Use gnc-commodity-equiv to compare commodites, not equal?

Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2013-02-04 02:32:50 UTC (rev 22751)
+++ gnucash/trunk/src/scm/price-quotes.scm	2013-02-04 03:15:44 UTC (rev 22752)
@@ -397,7 +397,7 @@
 	     ct))
 	   (commodity-list #f)
 	   (currency-list (filter
-			   (lambda (a) (not (equal? (cadr a) (caddr a))))
+			   (lambda (a) (not (gnc-commodity-equiv (cadr a) (caddr a))))
 			   (call-with-values 
                                (lambda () (partition!
                                            (lambda (cmd)