summaryrefslogtreecommitdiff
path: root/module/scripts/read-text-outline.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/scripts/read-text-outline.scm')
-rw-r--r--module/scripts/read-text-outline.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/scripts/read-text-outline.scm b/module/scripts/read-text-outline.scm
index 64221fbe1..d0933bb0b 100644
--- a/module/scripts/read-text-outline.scm
+++ b/module/scripts/read-text-outline.scm
@@ -1,6 +1,6 @@
;;; read-text-outline --- Read a text outline and display it as a sexp
-;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 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
@@ -118,6 +118,9 @@
:autoload (ice-9 rdelim) (read-line)
:autoload (ice-9 getopt-long) (getopt-long))
+(define %include-in-guild-list #f)
+(define %summary "Convert textual outlines to s-expressions.")
+
(define (?? symbol)
(let ((name (symbol->string symbol)))
(string=? "?" (substring name (1- (string-length name))))))