Fix typos in 'string-join' docs: 'string-infix' -> 'strict-infix'.

[bpt/guile.git] / module / scripts / summarize-guile-TODO.scm

diff --git a/module/scripts/summarize-guile-TODO.scm b/module/scripts/summarize-guile-TODO.scm
index a67c92e..8b119e0 100644 (file)
--- a/module/scripts/summarize-guile-TODO.scm
+++ b/module/scripts/summarize-guile-TODO.scm
@@ -1,6 +1,6 @@
 ;;; summarize-guile-TODO --- Display Guile TODO list in various ways
 
-;;     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
@@ -63,7 +63,7 @@
 ;;       Add support for ORing criteria.
 
 ;;; Code:
-(debug-enable 'debug 'backtrace)
+(debug-enable 'backtrace)
 
 (define-module (scripts summarize-guile-TODO)
   :use-module (scripts read-text-outline)
@@ -73,6 +73,9 @@
   :autoload (ice-9 common-list) (remove-if-not)
   :export (summarize-guile-TODO))
 
+(define %include-in-guild-list #f)
+(define %summary "A quaint relic of the past.")
+
 (define put set-object-property!)
 (define get object-property)