mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

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

Browse source 
supplied, the `--manual' flag arrives as a string, not a symbol,
	so test for it as such.
This commit is contained in:
Neil Jerram 2002-03-12 21:54:52 +00:00
parent 21b83aabb2
commit e21f90f0de
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/ChangeLog
View file

@ -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> 2002-03-03 Neil Jerram <neil@ossau.uklinux.net>
* snarf-guile-m4-docs (display-texi): Strip off `# ' from start of * snarf-guile-m4-docs (display-texi): Strip off `# ' from start of

2
scripts/snarf-check-and-output-texi
View file

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