POSTUN
/bin/sh
if [ "$1" -eq 0 ]; then
update-alternatives --remove guile /usr/bin/guile-2.0
fi
POSTTRANS
/bin/sh
if [ "$1" -eq 1 ]; then
update-alternatives \
--install /usr/bin/guile guile /usr/bin/guile-2.0 20 \
--slave /usr/bin/guile-tools guile-tools /usr/bin/guile-tools-2.0 \
--slave /usr/bin/guild guild /usr/bin/guild-2.0
fi
Triggers
guile <
2.0.14-8
/bin/sh
ln -sfT ../../slib /usr/share/guile/2.0/slib
rm -f /usr/share/guile/%{mver}/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/guile2.0 -c "$pre
(set! implementation-vicinity (lambda () \"/usr/share/guile/2.0/\"))
(require 'new-catalog)" &> /dev/null && break
rm -f /usr/share/guile/2.0/slibcat
done
:
slib
/bin/sh
if [ "$1" = 0 -o "$2" = 0 ]; then
rm -f /usr/share/guile/2.0/slib{,cat}
fi
slib
/bin/sh
if [ -e /usr/bin/guile -a ! -L /usr/bin/guile ]; then
rm -rf /usr/bin/{guile,guile-tools,guild}
fi