diff options
Diffstat (limited to 'guile.init')
| -rw-r--r-- | guile.init | 23 |
1 files changed, 10 insertions, 13 deletions
@@ -43,17 +43,17 @@ ;;; (implementation-vicinity) should be defined to be the pathname of ;;; the directory where any auxillary files to your Scheme ;;; implementation reside. -(define implementation-vicinity - (let* ((path (or (%search-load-path "ice-9/q.scm") - (error "Could not find ice-9/q.scm in " %load-path))) - (vic (substring path 0 (- (string-length path) 11)))) - (lambda () vic))) +;; (define implementation-vicinity +;; (let* ((path (or (%search-load-path "ice-9/q.scm") +;; (error "Could not find ice-9/q.scm in " %load-path))) +;; (vic (substring path 0 (- (string-length path) 11)))) +;; (lambda () vic))) ;; ;;; Rob Browning says %site-dir exists since Guile-1.6 -;;(define implementation-vicinity -;; (cond ((and (defined? 'getenv) (getenv "GUILE_IMPLEMENTATION_PATH")) -;; => (lambda (path) (lambda () path))) -;; (else %site-dir))) +(define implementation-vicinity + (cond ((and (defined? 'getenv) (getenv "GUILE_IMPLEMENTATION_PATH")) + => (lambda (path) (lambda () path))) + (else %site-dir))) ;;; (library-vicinity) should be defined to be the pathname of the ;;; directory where files of Scheme library functions reside. @@ -68,10 +68,7 @@ (and path (substring path 0 (- (string-length path) 10)))) ;; Use this path if your scheme does not support GETENV ;; or if SCHEME_LIBRARY_PATH is not set. -;; Changed from /usr/lib/slib to /usr/share/slib by tb@debian.org for -;; Debian packaging. -;; "/usr/lib/slib/" - "/usr/share/slib/" + "/usr/lib/slib/" (in-vicinity (implementation-vicinity) "slib/")))) (lambda () library-path))) |