This is the mail archive of the guile@cygnus.com mailing list for the guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Using SLIB with Guile



I installed the SLIB files in /usr/local/share/guile/slib (my guile
[the 971112 snapshot] is compiled with a --prefix of /usr/local). I
expected that to just work, but it seems to fail on any require, even
though it is finding the location of the files OK. The backtrace makes
me think that the .scm suffix is not being appended properly to files
that are given to slib:load with no extension.

 - Maciej

guile> (use-modules (ice-9 slib))
guile> (require 'random)
ERROR: In procedure gsubr-apply in expression (@apply fun (apply:nconc2last args)):
ERROR: No such file or directory: "/usr/local/share/guile/slib/mklibcat"
ABORT: (system-error)

Type "(backtrace)" to get more information.
guile> (backtrace)

Backtrace:
 0* [require:require random]
 1  (or (require:provided? feature) (let (#) (cond #) ...))
 2* [require:provided? random]
 3  (if (symbol? feature) (if (memq feature *features*) #t ...) ...)
    ...
 4  (let ((path #)) (cond (# #) (# #t) ...))
 5* [catalog:get random]
 6* (if (not *catalog*) (let (#) (cond #) ...))
 7  (let ((slibcat #)) (cond (# # #)) ...)
 8* (cond ((or # #) (slib:load #) (set! slibcat #)))
 9* [#<procedure (<pathname> . extra)> "/usr/local/share/guile/slib/mklibcat"]
10  (let ((old-load-pathname *load-pathname*)) (set! *load-pathname* <pathname>) ...)
11* [apply #<procedure slib:load (name)> ("/usr/local/share/guile/slib/mklibcat")]
12  [slib:load "/usr/local/share/guile/slib/mklibcat"]
    ...
13  [dynamic-wind #<procedure ()> #<procedure ()> ...]
14* [#<procedure ()>]
15* (let ((errinfo #)) (if (and errinfo #) (apply throw errinfo)))
16  (if (and errinfo (catch # # ...)) (apply throw errinfo))
    ...
17  [apply #<compiled-closure #<primitive-procedure gsubr-apply>> (system-error "open-file" "%s: %S" ...)]
18* [gsubr-apply #<compiled-closure #<primitive-procedure gsubr-apply>> system-error ...]

Type "(debug-enable 'backtrace)" if you would like a backtrace
automatically if an error occurs in the future.