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

[bpt/guile.git] / libguile / guile-snarf.awk.in

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);