summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>1999-12-15 16:35:07 +0000
committerGreg J. Badros <gjb@cs.washington.edu>1999-12-15 16:35:07 +0000
commit901f6de0a1ece0a74fdca5b59ceb3bf581de6270 (patch)
tree072f76ed19af6ea7a358528ba218bd7441803ff0
parente1442b11738c7e20c5ca3be9c34846db8b29b45b (diff)
downloadguile-901f6de0a1ece0a74fdca5b59ceb3bf581de6270.tar.gz
Search lots of different places, just to be safe, for now.
-rw-r--r--ice-9/doc.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/ice-9/doc.scm b/ice-9/doc.scm
index 82db0792a..1e14d5ea7 100644
--- a/ice-9/doc.scm
+++ b/ice-9/doc.scm
@@ -1,4 +1,4 @@
-;;; $Id: doc.scm,v 1.2 1999-12-15 16:32:36 gjb Exp $
+;;; $Id: doc.scm,v 1.3 1999-12-15 16:35:07 gjb Exp $
;;;; Copyright (C) 1999 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
@@ -35,8 +35,8 @@
(if (string? (car zz)) (display (car zz) port) (write (car zz) port))))
(define-public doc-files
- (list (string-append (%library-dir) "/guile-procedures.txt")
- "./guile-procedures.txt"))
+ (map (lambda (x) (string-append (x) "/guile-procedures.txt"))
+ (list %library-dir %package-data-dir %site-dir (lambda () "."))))
(define-public (hook-documentation hook)
"Return the docstring for HOOK."