diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-15 16:35:07 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-15 16:35:07 +0000 |
commit | 901f6de0a1ece0a74fdca5b59ceb3bf581de6270 (patch) | |
tree | 072f76ed19af6ea7a358528ba218bd7441803ff0 | |
parent | e1442b11738c7e20c5ca3be9c34846db8b29b45b (diff) | |
download | guile-901f6de0a1ece0a74fdca5b59ceb3bf581de6270.tar.gz |
Search lots of different places, just to be safe, for now.
-rw-r--r-- | ice-9/doc.scm | 6 |
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." |