$NetBSD: patch-aa,v 1.4 2007/02/07 19:39:53 drochner Exp $

--- guile.init.orig	2006-04-24 05:53:25.000000000 +0200
+++ guile.init
@@ -58,7 +58,7 @@
 	  (and (defined? 'getenv) (getenv "SCHEME_LIBRARY_PATH"))
 	  ;; Use this path if your scheme does not support GETENV
 	  ;; or if SCHEME_LIBRARY_PATH is not set.
-	  "/usr/lib/slib/"
+	  "@PREFIX@/share/slib/"
 	  (in-vicinity (implementation-vicinity) "slib/"))))
     (lambda () library-path)))
 
@@ -122,7 +122,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*))))))
 ;@
