guile << "EOF2"
(use-modules (ice-9 slib))
(load "/usr/share/slib/mklibcat.scm")
(require 'new-catalog)
(quit)
EOF2


( cd usr/share ; rm -rf slib )
( cd usr/share ; ln -sf ../lib/slib slib )
( cd usr/share/guile ; rm -rf slib )
( cd usr/share/guile ; ln -sf ../../lib/slib slib )
( cd usr/lib/slib ; rm -rf mklibcat )
( cd usr/lib/slib ; ln -sf mklibcat.scm mklibcat )
