diff options
-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." |