tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

guix package: '--upgrade' no longer reverses package order.

Browse Source 
Reported by Oleg Pykhalov <go.wigust@gmail.com>
at <https://lists.gnu.org/archive/html/help-guix/2017-10/msg00000.html>.

* guix/scripts/package.scm (options->installable)[upgraded]: Use
'fold-right' instead of 'fold'.
This commit is contained in:
Ludovic Courtès
2017-10-07 15:44:23 +02:00
parent 3ae76f7f57
commit eca16a3d1d
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
guix/scripts/package.scm
View File

@@ -604,12 +604,12 @@ and upgrades."
(options->upgrade-predicate opts))
(define upgraded
(fold (lambda (entry transaction)
(if (upgrade? (manifest-entry-name entry))
(transaction-upgrade-entry entry transaction)
transaction))
transaction
(manifest-entries manifest)))
(fold-right (lambda (entry transaction)
(if (upgrade? (manifest-entry-name entry))
(transaction-upgrade-entry entry transaction)
transaction))
transaction
(manifest-entries manifest)))
(define to-install
(filter-map (match-lambda