Re: Unexpected results with Guix.

[Jone]

> Please also try `guix gc --referrers`.

That's right. I wrote a simple script, which shows it:

#!/bin/sh
if [ -z "$1" ]
then exit 1
fi
cprof=$(readlink -f ~/.guix-profile)
init=/gnu/store/*-$1*/
rtest="$(eval echo $init)"   # trick!
if [ "$rtest" = "$init" ]
then init=$1
fi
for f in $init
do
        f=${f%/}
        ref="$(guix gc --referrers $f | grep -v $f)" 
        if echo "$ref" | grep -q $cprof
        then
                echo $f in CURRENT profile!
                exit
        else
                echo ● $f 1>&2
                if ((${#ref} > 10))
                then echo "$ref" | grep --color -e ".*-system" -e "^"
                else echo NO REFERRERS 1>&2
                fi
                echo
        fi
        ## and recursively
        for j in $(echo "$ref" | grep -E 'profile$')
        do eval $0 $j
        done
done
exit

- Results for 'icecat':
~/Desktop> guix-gc-refcount.sh icecat
● /gnu/store/50530hgnzkxgkqciip68dn7v23cslw1c-icecat-60.8.0-guix1
/gnu/store/8x0ipsgl2dhdi7n1psrh8dssv8dh39dd-xdg-desktop-database
/gnu/store/njwpq4ywz17rgvvbdds20cndrgwsrcxs-gtk-icon-themes
/gnu/store/zxqr8afp3rpd2r3g9x41sqg5mx525355-profile

● /gnu/store/zxqr8afp3rpd2r3g9x41sqg5mx525355-profile
NO REFERRERS

- Results for my own package 'wdfs':
guix-gc-refcount.sh wdfs
/gnu/store/7j1zhlwqjmhyvr7mg8il02xvqvd9yfmz-wdfs-1.4.2 in CURRENT profile!

Incomprehensibly..