SLIB 3a2 does not work with Guile 1.6.4

[Alan Grover]

Summary: SLIB 3a2 does not install or work with Guile 1.6.4

Guile 1.6.4
Slib 3a2
Linux xxxxxx 2.6.8-24.17-default #1 Tue Jul 19 08:56:33 UTC 2005 i686
i686 i386 GNU/Linux
SuSE 9.2

* The guile.init file (provided in SLIB) has a bug: it does not
correctly deduce the *vicinity-suffix*. See the section:
              (else (let ((*vicinity-suffix*
                 (case (software-type)
                   ((NOSVE) ".")
                   ((MACOS THINKC) ":")
                   ((MS-DOS WINDOWS ATARIST OS/2) "\\")
                   ((UNIX COHERENT PLAN9 AMIGA) "/")))
By forcing the value to "/" I was able to initialize the slibcat. SLIB
documentation (the FAQ) seems to recommend setting an environment
variable, but guile.init should do-the-right-thing.

Forcing the *vicinity-suffix* produces slibcat at:
-rw-r--r--  1 root root 8006 2005-09-13 23:33 /usr/share/guile/1.6/slibcat
% ls /usr/share/guile/1.6
guile-procedures.txt  ice-9/  oop/  scripts/  slib/  slibcat  srfi/
% guile -c '(display %load-path)'
(/usr/share/guile/site /usr/share/guile/1.6 /usr/share/guile .)

Head of slibcat:
;"slibcat" SLIB catalog for guile1.6.4.        -*-scheme-*-
;
; DO NOT EDIT THIS FILE -- it is automagically generated

(
 (schelog . "/usr/share/guile/1.6/slib/schelog/schelog")
 (portable-scheme-debugger . "/usr/share/guile/1.6/slib/psd/psd-slib")
 (jfilter . "/usr/share/guile/1.6/slib/jfilter/jfilter")
 (null . "/usr/share/guile/1.6/slib/null")
 (aggregate . "/usr/share/guile/1.6/slib/null")


* Even after initializing slibcat, SLIB does not work (as if it is
trying to regenerate slibcat):
% guile --debug -c "(use-modules (ice-9 slib)) (require 'byte )"
ERROR: Unbound variable: with-load-pathname

Backtrace:
In unknown file:
   ?:  0* (begin (eval-string "(use-modules (ice-9 slib)) (require 'byte
) ") (quit))
   ?:  1* [eval-string "(use-modules (ice-9 slib)) (require 'byte ) "]
   1:  2* [require byte]
In /usr/share/guile/1.6/slib/require.scm:
 135:  3  (cond ((not feature) (set! *catalog* #f)) ((slib:provided?
feature)) ...)
 139:  4  (let ((path #)) (cond (# #) (# # #) (# # #) ...))
 139:  5* [catalog:get byte]
  76:  6* (if (not *catalog*) (let ((slibcat #)) (cond (# # #)) ...))
  77:  7  (let ((slibcat #)) (cond (# # #)) (cond (slibcat #)) ...)
  78:  8* (cond ((not #) (slib:load #) (set! slibcat #)))
  79:  9* [#<procedure #f (<pathname> . extra)>
"/usr/share/guile/1.6/slib/mklibcat"]
 204: 10  (with-load-pathname <pathname> (lambda () (apply *old-load* #)))
-- 
Alan Grover
address@hidden
+1.734.476.0969

signature.asc
Description: OpenPGP digital signature