diff options
Diffstat (limited to 'guile.init')
| -rw-r--r-- | guile.init | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -43,13 +43,13 @@ ;;; (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 %site-dir) +;;(define implementation-vicinity %site-dir) ;;; (library-vicinity) should be defined to be the pathname of the ;;; directory where files of Scheme library functions reside. |