Alex Kost <alez...@gmail.com> skribis: > + (let* ((remove (manifest-matching-entries > + manifest (manifest-transaction-remove transaction))) > + (install/upgrade (manifest-transaction-install transaction)) > + (install '()) > + (upgrade (append-map > + (lambda (entry) > + (let ((matching > + (manifest-matching-entries > + manifest > + (list (manifest-pattern > + (name (manifest-entry-name entry)) > + (output (manifest-entry-output > entry))))))) > + (when (null? matching) > + (set! install (cons entry install))) > + matching)) > + install/upgrade)))
Somehow I had overlooked the ‘set!’ here. ;-) I’ve just added an auxiliary procedure, ‘manifest-transaction-effects’, which does that in a functional way. Let me know if there’s anything wrong. Ludo’.
