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

Have "frisk" recognize #:use-module' and #:autoload'.

Browse source 
* module/scripts/frisk.scm (grok-proc): Support keywords `#:use-module'
  and `#:autoload'.
This commit is contained in:
Ludovic Courtès 2010-10-27 23:31:49 +02:00
parent 9cec275968
commit dcb9aceb48
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/scripts/frisk.scm
View file

@ -1,6 +1,6 @@
;;; frisk --- Grok the module interfaces of a body of files
;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
;; Copyright (C) 2002, 2006, 2010 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
@ -126,10 +126,10 @@
(let loop ((ls form))
(or (null? ls)
(case (car ls)
((:use-module)
((#:use-module :use-module)
(note-use! 'regular module (ferret (cadr ls)))
(loop (cddr ls)))
((:autoload)
((#:autoload :autoload)
(note-use! 'autoload module (cadr ls))
(loop (cdddr ls)))
(else (loop (cdr ls))))))))