mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

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

Browse source 
by doubling them to `@@'.
This commit is contained in:
Neil Jerram 2001-02-16 18:57:11 +00:00
parent 73c0fdce7e
commit 2570385024
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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,

3
libguile/guile-snarf.awk.in
View file

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