diff options
author | Thomas Bushnell, BSG <tb@debian.org> | 2008-02-07 13:19:02 -0500 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:42 -0800 |
commit | 92918fc2e693383622528ca6b8ad8d36c79fc07a (patch) | |
tree | d6c049ad725c0c9d619394c5adcbd1d24b7d5c71 | |
parent | 71dab84adaa579f9386dd8ee09006d3cac625723 (diff) | |
download | slib-92918fc2e693383622528ca6b8ad8d36c79fc07a.tar.gz slib-92918fc2e693383622528ca6b8ad8d36c79fc07a.zip |
Import Debian changes 3b1-2debian/3b1-2
slib (3b1-2) unstable; urgency=low
* guile.init (implementation-vicinity): Repeat change from 3a5-2.
(Closes: #464143)
-rw-r--r-- | debian/changelog | 7 | ||||
-rw-r--r-- | guile.init | 18 |
2 files changed, 16 insertions, 9 deletions
diff --git a/debian/changelog b/debian/changelog index d21b8a9..0fa20e3 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +slib (3b1-2) unstable; urgency=low + + * guile.init (implementation-vicinity): Repeat change from 3a5-2. + (Closes: #464143) + + -- Thomas Bushnell, BSG <tb@debian.org> Thu, 07 Feb 2008 13:19:02 -0500 + slib (3b1-1) unstable; urgency=low * New upstream release. @@ -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. |