43 |
(define (display-texi lines) |
(define (display-texi lines) |
44 |
(display "@deffn {Autoconf Macro}") |
(display "@deffn {Autoconf Macro}") |
45 |
(for-each (lambda (line) |
(for-each (lambda (line) |
46 |
(display (if (string=? "#" (substring line 0 1)) |
(display (cond ((and (>= (string-length line) 2) |
47 |
(substring line 1) |
(string=? "# " (substring line 0 2))) |
48 |
line)) |
(substring line 2)) |
49 |
|
((string=? "#" (substring line 0 1)) |
50 |
|
(substring line 1)) |
51 |
|
(else line))) |
52 |
(newline)) |
(newline)) |
53 |
lines) |
lines) |
54 |
(display "@end deffn") |
(display "@end deffn") |