From e21f90f0de25a177808d4a42e27d776645c54e44 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Tue, 12 Mar 2002 21:54:52 +0000 Subject: [PATCH] * 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. --- scripts/ChangeLog | 6 ++++++ scripts/snarf-check-and-output-texi | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/scripts/ChangeLog b/scripts/ChangeLog index 7d619d2b0..484c62c67 100644 --- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,9 @@ +2002-03-12 Neil Jerram + + * 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 * 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 37d751c86..d669cab86 100755 --- 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)))