summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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."