21 lines
734 B
Text
21 lines
734 B
Text
--- guile.init.orig Fri Jan 18 04:27:26 2013
|
|
+++ guile.init Fri Dec 6 13:38:10 2013
|
|
@@ -229,7 +229,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.
|
|
- "/usr/share/slib/")))
|
|
+ "${LOCALBASE}/share/slib/")))
|
|
(lambda () library-path)))
|
|
|
|
;;; (home-vicinity) should return the vicinity of the user's HOME
|
|
@@ -291,7 +291,8 @@
|
|
((nosve) ".")
|
|
((macos thinkc) ":")
|
|
((ms-dos windows atarist os/2) "\\")
|
|
- ((unix coherent plan9 amiga) "/"))))
|
|
+ ((unix coherent plan9 amiga) "/")
|
|
+ (else "/"))))
|
|
(lambda (vic name)
|
|
(string-append vic name *vicinity-suffix*))))))
|
|
;@
|