mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

(modern_snarf): Remove everything following and including "^:^" from

Browse source 
the output.
This commit is contained in:
Marius Vollmer 2002-03-14 22:21:53 +00:00
parent 7199029717
commit d3bd0027d4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/guile-snarf.in
View file

@ -45,7 +45,7 @@
modern_snarf () # writes stdout modern_snarf () # writes stdout
{ {
${cpp} -DSCM_MAGIC_SNARF_INITS "$@" > ${temp} && cpp_ok_p=true ${cpp} -DSCM_MAGIC_SNARF_INITS "$@" > ${temp} && cpp_ok_p=true
grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/"
} }
compat_mode_clean_xxx () # modifies $1 compat_mode_clean_xxx () # modifies $1