* snarf-check-and-output-texi (snarf-check-and-output-texi): If

	supplied, the `--manual' flag arrives as a string, not a symbol,
	so test for it as such.

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
index 7d619d2..484c62c 100644 (file)
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-12  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * snarf-check-and-output-texi (snarf-check-and-output-texi): If
+       supplied, the `--manual' flag arrives as a string, not a symbol,
+       so test for it as such.
+
 2002-03-03  Neil Jerram  <neil@ossau.uklinux.net>
 
        * snarf-guile-m4-docs (display-texi): Strip off `# ' from start of

diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index 37d751c..d669cab 100755 (executable)
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -42,7 +42,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 (define *manual-flag* #f)
 
 (define (snarf-check-and-output-texi . flags)
-  (if (memq '--manual flags)
+  (if (member "--manual" flags)
       (set! *manual-flag* #t))
   (process-stream (current-input-port)))