Cleanup in the comparison module

This commit is contained in:
Christopher Baines 2021-01-04 07:58:58 +00:00
parent 2a8a574f4a
commit dd044c9f53

View file

@ -704,7 +704,7 @@ ORDER BY coalesce(base_packages.name, target_packages.name) ASC, base_packages.v
(target-versions (target-versions
(package-data-vhash->package-versions-hash-table (package-data-vhash->package-versions-hash-table
target-packages-vhash))) target-packages-vhash)))
>
(hash-fold (lambda (name target-versions result) (hash-fold (lambda (name target-versions result)
(let ((base-versions (hash-ref base-versions name))) (let ((base-versions (hash-ref base-versions name)))
(if base-versions (if base-versions