Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / module / scripts / read-scheme-source.scm

diff --git a/module/scripts/read-scheme-source.scm b/module/scripts/read-scheme-source.scm
index b48a88f..1bca6a4 100644 (file)
--- a/module/scripts/read-scheme-source.scm
+++ b/module/scripts/read-scheme-source.scm
@@ -1,6 +1,6 @@
 ;;; read-scheme-source --- Read a file, recognizing scheme forms and comments
 
-;;     Copyright (C) 2001, 2006 Free Software Foundation, Inc.
+;;     Copyright (C) 2001, 2006, 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
@@ -91,6 +91,9 @@
            quoted?
            clump))
 
+(define %include-in-guild-list #f)
+(define %summary "Print a parsed representation of a Scheme file.")
+
 ;; Try to figure out what FORM is and its various attributes.
 ;; Call proc NOTE! with key (a symbol) and value.
 ;;