/[guile]/guile/guile-core/scripts/snarf-guile-m4-docs
ViewVC logotype

Diff of /guile/guile-core/scripts/snarf-guile-m4-docs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.1 by ttn, Thu Jan 3 00:10:25 2002 UTC revision 1.1.2.2 by ossau, Wed Mar 27 21:48:16 2002 UTC
# Line 43  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 43  exec ${GUILE-guile} -l $0 -c "(apply $ma
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")

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26