PREUN

/bin/sh

if [ "$1" = "0" ]; then if [[ -f /usr/share/info/guile-tut.info.xz ]]; then /sbin/install-info /usr/share/info/guile-tut.info.xz --dir=/usr/share/info/dir --remove ; fi; fi 

if [ "$1" = "0" ]; then if [[ -f /usr/share/info/guile.info.xz ]]; then /sbin/install-info /usr/share/info/guile.info.xz --dir=/usr/share/info/dir --remove ; fi; fi 

if [ "$1" = "0" ]; then if [[ -f /usr/share/info/r5rs.info.xz ]]; then /sbin/install-info /usr/share/info/r5rs.info.xz --dir=/usr/share/info/dir --remove ; fi; fi 

if [ "$1" = "0" ]; then if [[ -f /usr/share/info/goops.info.xz ]]; then /sbin/install-info /usr/share/info/goops.info.xz --dir=/usr/share/info/dir --remove ; fi; fi

POSTIN

/bin/sh

if [[ -f /usr/share/info/guile-tut.info.xz ]]; then /sbin/install-info /usr/share/info/guile-tut.info.xz --dir=/usr/share/info/dir; fi 

if [[ -f /usr/share/info/guile.info.xz ]]; then /sbin/install-info /usr/share/info/guile.info.xz --dir=/usr/share/info/dir; fi 

if [[ -f /usr/share/info/r5rs.info.xz ]]; then /sbin/install-info /usr/share/info/r5rs.info.xz --dir=/usr/share/info/dir; fi 

if [[ -f /usr/share/info/goops.info.xz ]]; then /sbin/install-info /usr/share/info/goops.info.xz --dir=/usr/share/info/dir; fi

Triggers

slib

/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/guile -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