diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2001-02-16 18:57:11 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2001-02-16 18:57:11 +0000 |
| commit | 2570385024ae740fe9e5005e806d32c097417d4f (patch) | |
| tree | 3acd3b08966932cebc2c38e22a3cbf3f9d87cdd7 | |
| parent | 73c0fdce7e198f9db2dbd981113acdb85a481364 (diff) | |
* guile-snarf.awk.in: Quote any `@'s that occur in Scheme names,
by doubling them to `@@'.
| -rw-r--r-- | libguile/ChangeLog | 5 | ||||
| -rw-r--r-- | libguile/guile-snarf.awk.in | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index e202b3ad5..67db1d438 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2001-02-16 Neil Jerram <neil@ossau.uklinux.net> + + * guile-snarf.awk.in: Quote any `@'s that occur in Scheme names, + by doubling them to `@@'. + 2001-02-16 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> * numbers.c (scm_lognot), random.c (scm_random, diff --git a/libguile/guile-snarf.awk.in b/libguile/guile-snarf.awk.in index 45ad42b88..3fbe217d9 100644 --- a/libguile/guile-snarf.awk.in +++ b/libguile/guile-snarf.awk.in @@ -40,6 +40,9 @@ BEGIN { FS="|"; sub(/ \)/,")",copy); # Now `copy' contains the nice scheme proc "prototype", e.g. # (set-car! pair value) + # Since this is destined to become Texinfo source, + # quote any `@'s that occur in the prototype. + gsub(/\@/,"@@",copy); # print copy > "/dev/stderr"; # for debugging sub(/^\(/,"",copy); sub(/\)[ \t]*$/,"",copy); |