Crash when gettig online quotes with current maint branch

[Herbert Thoma]

Hi,

I am getting a crash when trying to fetch online quotes:

Backtrace:
In unknown file:
    ?: 0* [gnc:book-add-quotes # #]
    ?: 1* (letrec (# # # # ...) (let* # # #))
In /usr/local/share/gnucash/guile-modules/gnucash/price-quotes.scm:
  431: 2  (let* (# # # # ...) (cond # # # ...) (if keep-going? #))
  431: 3* [book->commodity->fq-call-data #<swig-pointer QofBook * 1c669e0>]
  218: 4  (let* ((ct #) (big-list #) (commodity-list #f) ...) (if (and # #) #f ...))
  223: 5* [filter #<procedure #f (a)> ...
  225: 6*  [call-with-values #<procedure #f ()> #<procedure #f (a b)>]
In unknown file:
    ?: 7   (@call-with-values (producer consumer))
    ?: 8*  [#<procedure #f ()>]
In /usr/local/share/gnucash/guile-modules/gnucash/price-quotes.scm:
  226: 9*  (partition! (lambda (cmd) (not (string=? # "currency"))) big-list)

/usr/local/share/gnucash/guile-modules/gnucash/price-quotes.scm:226:43: In expression (partition! (lambda # #) big-list):
/usr/local/share/gnucash/guile-modules/gnucash/price-quotes.scm:226:43: Unbound variable: partition!

This is the stable (maint) branch.

  Herbert.