Wrong signature of `scanr` specified

[pier-bezuhoff]

in prelude
invalid signature of scanr specified
Now:
(a → b → b) → b → [a] → [b]
Should be:
(b → a → b) → b → [a] → [b]
I guess, it had been copied from haskell prelude,
but here it's implemented differently