supplied, the `--manual' flag arrives as a string, not a symbol,
so test for it as such.
+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
2002-03-03 Neil Jerram <neil@ossau.uklinux.net>
* snarf-guile-m4-docs (display-texi): Strip off `# ' from start of
(define *manual-flag* #f)
(define (snarf-check-and-output-texi . flags)
(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)))
(set! *manual-flag* #t))
(process-stream (current-input-port)))