temporarily disable elisp exception tests

[bpt/guile.git] / module / scripts / frisk.scm

diff --git a/module/scripts/frisk.scm b/module/scripts/frisk.scm
index 0cf50d6..a8f7923 100644 (file)
--- 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, 2011 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
@@ -103,6 +103,9 @@
            mod-up-ls mod-down-ls mod-int?
            edge-type edge-up edge-down))
 
+(define %include-in-guild-list #f)
+(define %summary "Show dependency information for a module.")
+
 (define *default-module* '(guile-user))
 
 (define (grok-proc default-module note-use!)
@@ -126,10 +129,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))))))))