POSTUN

/bin/sh

if [ "$1" -eq 0 ]; then
  update-alternatives --remove guile /usr/bin/guile-1.8
fi

POSTTRANS

/bin/sh

if [ "$1" -eq 1 ]; then
  update-alternatives \
    --install /usr/bin/guile guile /usr/bin/guile-1.8 18 \
    --slave /usr/bin/guile-tools guile-tools /usr/bin/guile-tools-1.8
fi

Triggers

guile1.8 < 1.8.8-30

/bin/sh

# Remove files created in guile < 1.8.7-4mdv
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 [ "$1" = 0 -o "$2" = 0 ]; then
    rm -f /usr/share/guile/1.8/slib{,cat}
fi

slib

/bin/sh

if [ -e /usr/bin/guile -a ! -L /usr/bin/guile ]; then
  rm -rf /usr/bin/guile{,-tools}
fi