summaryrefslogtreecommitdiff
path: root/module/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-10-27 23:31:49 +0200
committerLudovic Courtès <ludo@gnu.org>2010-10-27 23:31:49 +0200
commitdcb9aceb48a9c3181d6006e175e2e8728354c5aa (patch)
tree8ad3048fbc1af33352d781b9eeec01b7cfa5052c /module/scripts
parent9cec275968d10144d77a8f0a449bb6725421628d (diff)
downloadguile-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/scripts')
-rw-r--r--module/scripts/frisk.scm6
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))))))))