mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

* doc.scm: Use `%library-dir', not the quickly defuncted

Browse source 
`library-dir' that I added before realizing the former existed.
Thanks Brad Knotwell!
This commit is contained in:
Greg J. Badros 1999-12-15 16:32:36 +00:00
parent 5f6d07ad97
commit e1442b1173
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/doc.scm
View file

@ -1,4 +1,4 @@
;;; $Id: doc.scm,v 1.1 1999-12-13 03:19:11 gjb Exp $
;;; $Id: doc.scm,v 1.2 1999-12-15 16:32:36 gjb Exp $
;;;; Copyright (C) 1999 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
@ -35,7 +35,7 @@
(if (string? (car zz)) (display (car zz) port) (write (car zz) port))))
(define-public doc-files
(list (string-append (library-dir) "/guile-procedures.txt")
(list (string-append (%library-dir) "/guile-procedures.txt")
"./guile-procedures.txt"))
(define-public (hook-documentation hook)