12345678910111213141516171819202122232425262728293031323334 |
- (let ((try-load (lambda (dir)
- (let ((init (string-append dir "/slib/guile.init")))
- (and (file-exists? init)
- (begin
- (load init)
- #t))))))
- (or (try-load (assq-ref %guile-build-info 'datadir))
- (try-load "/usr/share")
- (load-from-path "slib/guile.init")))
|