(use srfi-1) (define (update-values alist associations) (let ((combined (append associations alist))) (map (cut assoc <> combined) (delete-duplicates (map car combined)))))