mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-02 18:26:20 +02:00
Code Activity

Search lots of different places, just to be safe, for now.

Browse source
This commit is contained in:
Greg J. Badros 1999-12-15 16:35:07 +00:00
parent e1442b1173
commit 901f6de0a1
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/doc.scm
View file

@ -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. ;;;; Copyright (C) 1999 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; 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)))) (if (string? (car zz)) (display (car zz) port) (write (car zz) port))))
(define-public doc-files (define-public doc-files
(list (string-append (%library-dir) "/guile-procedures.txt") (map (lambda (x) (string-append (x) "/guile-procedures.txt"))
"./guile-procedures.txt")) (list %library-dir %package-data-dir %site-dir (lambda () "."))))
(define-public (hook-documentation hook) (define-public (hook-documentation hook)
"Return the docstring for HOOK." "Return the docstring for HOOK."