[maint] Remove unused script guile-doc-snarf.

* doc/ref/tools.texi (Doc Snarfing): Don't mention guile-doc-snarf.

* configure.ac (libguile/guile-doc-snarf): Delete ‘GUILE_CONFIG_SCRIPT’.

* libguile/Makefile.am (noinst_SCRIPTS): Remove guile-doc-snarf.
* libguile/.gitignore: Remove guile-doc-snarf.
* libguile/guile-doc-snarf.in: Delete file.

* module/scripts/doc-snarf.scm: Comment munging; nfc.

* AUTHORS: Update.

7 files changed, 3 insertions, 41 deletions

diff --git a/AUTHORS b/AUTHORS
index b8f605efa..749ffd655 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -270,7 +270,7 @@ In the subdirectory scripts, wrote:
 In the subdirectory scripts, changes to:
     doc-snarf
 In the subdirectory libguile, changes to:
-    guile-doc-snarf.in	regex-posix.c
+    regex-posix.c
 In the subdirectory doc, changes to:
     intro.texi			preface.texi
     scheme-modules.texi		scheme-procedures.texi
diff --git a/configure.ac b/configure.ac
index 265b38265..57ba8d6b6 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1650,7 +1650,6 @@ GUILE_CONFIG_SCRIPT([meta/uninstalled-env])
 GUILE_CONFIG_SCRIPT([meta/gdb-uninstalled-guile])
 GUILE_CONFIG_SCRIPT([meta/guile-tools])
 GUILE_CONFIG_SCRIPT([libguile/guile-snarf])
-GUILE_CONFIG_SCRIPT([libguile/guile-doc-snarf])
 GUILE_CONFIG_SCRIPT([libguile/guile-snarf-docs])
 GUILE_CONFIG_SCRIPT([test-suite/standalone/test-use-srfi])
 GUILE_CONFIG_SCRIPT([test-suite/standalone/test-fast-slot-ref])
diff --git a/doc/ref/tools.texi b/doc/ref/tools.texi
index 8b0d3a3bb..215834453 100644
--- a/doc/ref/tools.texi
+++ b/doc/ref/tools.texi
@@ -288,7 +288,6 @@ Here is a list of what does what according to @file{libguile/Makefile.am}:
 @item ../scripts/snarf-check-and-output-texi makes guile.texi
 @item ../scripts/snarf-check-and-output-texi makes guile-procedures.txt
 @item guile-func-name-check checks source snarf-syntax integrity (optional?)
-@item guile-doc-snarf calls guile-snarf-docs (to make .doc) and guile-snarf
 @end itemize
 
 Note that for guile-1.4, a completely different approach was used!  All this
diff --git a/libguile/.gitignore b/libguile/.gitignore
index 09f1b06b7..c9357d21d 100644
--- a/libguile/.gitignore
+++ b/libguile/.gitignore
@@ -4,7 +4,6 @@ cpp_sig_symbols.c
 gen-scmconfig
 gen-scmconfig.h
 guile
-guile-doc-snarf
 guile-func-name-check
 guile-procedures.texi
 guile-snarf
diff --git a/libguile/Makefile.am b/libguile/Makefile.am
index 5897d03ac..0ec02024a 100644
--- a/libguile/Makefile.am
+++ b/libguile/Makefile.am
@@ -593,7 +593,7 @@ bin_SCRIPTS = guile-snarf
 
 # We can re-enable install for some of these if/when they are documented
 # and people feel like maintaining them.  For now, this is not the case.
-noinst_SCRIPTS = guile-doc-snarf guile-snarf-docs guile-func-name-check
+noinst_SCRIPTS = guile-snarf-docs guile-func-name-check
 
 EXTRA_DIST = ChangeLog-scm ChangeLog-threads		\
     ChangeLog-1996-1999 ChangeLog-2000 ChangeLog-2008	\
diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
deleted file mode 100755
index a787d5a46..000000000
--- a/libguile/guile-doc-snarf.in
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/bin/sh
-# Extract the initialization actions for builtin things.
-#
-#  Copyright (C) 1999, 2000, 2001, 2006 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 as
-# published by the Free Software Foundation; either version 3, or (at
-# your option) any later version.
-# 
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# Lesser General Public License for more details.
-# 
-# You should have received a copy of the GNU Lesser General Public
-# License along with this software; see the file COPYING.LESSER.  If
-# not, write to the Free Software Foundation, Inc., 51 Franklin
-# Street, Fifth Floor, Boston, MA 02110-1301 USA
-
-fullfilename=$1
-
-# strip path to source directory
-filename=`basename $fullfilename`
-
-no_ext=`echo $filename | sed 's/\.[^.]*$//g'`
-dot_doc=${no_ext}.doc
-
-bindir=`dirname $0`
-
-${bindir}/guile-snarf-docs "$@" > $dot_doc
-
-${bindir}/guile-snarf "$@"
-
-# guile-doc-snarf ends here
diff --git a/module/scripts/doc-snarf.scm b/module/scripts/doc-snarf.scm
index b5665b973..b7fbc996e 100644
--- a/module/scripts/doc-snarf.scm
+++ b/module/scripts/doc-snarf.scm
@@ -70,7 +70,7 @@ This procedure foos, or bars, depending on the argument @var{braz}.
 
 ;; TODO: Convert option lines to alist.
 ;;       More parameterization.
-;;       ../libguile/guile-doc-snarf emulation
+;;       (maybe) Use in Guile build itself.
 
 (define doc-snarf-version "0.0.2") ; please update before publishing!