SecBSD's official ports repository

devel/slib/patches/patch-guile_init

@@ -0,0 +1,21 @@
+--- 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*))))))
+ ;@