diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-10-27 23:31:49 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-10-27 23:31:49 +0200 |
commit | dcb9aceb48a9c3181d6006e175e2e8728354c5aa (patch) | |
tree | 8ad3048fbc1af33352d781b9eeec01b7cfa5052c /module | |
parent | 9cec275968d10144d77a8f0a449bb6725421628d (diff) | |
download | guile-dcb9aceb48a9c3181d6006e175e2e8728354c5aa.tar.gz |
Have "frisk" recognize `#:use-module' and `#:autoload'.
* module/scripts/frisk.scm (grok-proc): Support keywords `#:use-module'
and `#:autoload'.
Diffstat (limited to 'module')
-rw-r--r-- | module/scripts/frisk.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/scripts/frisk.scm b/module/scripts/frisk.scm index 0cf50d6a8..c452ede25 100644 --- a/module/scripts/frisk.scm +++ b/module/scripts/frisk.scm @@ -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)))))))) |