PREUN

/bin/sh

if [ "$1" = 0 ]; then
    for i in guile r5rs goops guile-tut; do
        /sbin/install-info --delete /usr/share/info/$i.info.gz \
            /usr/share/info/dir &> /dev/null
    done
fi
:

POSTIN

/bin/sh

/sbin/ldconfig
for i in guile r5rs goops guile-tut; do
    /sbin/install-info /usr/share/info/$i.info.gz /usr/share/info/dir &> /dev/null
done
:

Triggers

slib

/bin/sh

# Remove files created in guile < 1.8.3-2
rm -f /usr/share/guile/site/slib{,cat}

ln -sfT ../../slib /usr/share/guile/1.8/slib
rm -f /usr/share/guile/1.8/slibcat
export SCHEME_LIBRARY_PATH=/usr/share/slib/

# Build SLIB catalog
for pre in \
    "(use-modules (ice-9 slib))" \
    "(load \"/usr/share/slib/guile.init\")"
do
    /usr/bin/guile -c "$pre
        (set! implementation-vicinity (lambda () \"/usr/share/guile/1.8/\"))
        (require 'new-catalog)" &> /dev/null && break
    rm -f /usr/share/guile/1.8/slibcat
done
:

slib

/bin/sh

if [ "$2" = 0 ]; then
    rm -f /usr/share/guile/1.8/slib{,cat}
fi