* guile-snarf.awk.in: Quote any `@'s that occur in Scheme names,

  by doubling them to `@@'.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index e202b3a..67db1d4 100644 (file)
--- 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 45ad42b..3fbe217 100644 (file)
--- 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);