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] |
What should I make of this?....
guile> (use-modules (ice-9 slib))
;; set up some slib catalogs....
guile> (load "/usr/local/share/guile/site/xscm-init.scm")
guile> (require 'stringvector)
/usr/local/share/guile/site/strvec.scm:4:43: In expression
(x-scm:vicinity):
/usr/local/share/guile/site/strvec.scm:4:43: Unbound variable:
x-scm:vicinity
ABORT: (misc-error)
Type "(backtrace)" to get more information.
guile> (x-scm:vicinity)
"/usr/local/share/guile/site"
guile> x-scm:vicinity
#<procedure x-scm:vicinity ()>
guile> ^D
$ cat /usr/local/share/guile/site/strvec.scm
;; $Id: strvec.scm,v 1.2 1996/04/18 12:15:30 skimu Exp $
(if (and (defined? 'dynamic-link)
(not (defined? 'stringvector)))
(let ((shl (dynamic-link (in-vicinity (x-scm:vicinity)
"libstrvec.so"))))
(dynamic-call "init_strvec" shl)))
--
Chris Bitmead
http://www.ans.com.au/~chrisb
mailto:chrisb@ans.com.au