diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-03-14 22:21:53 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-03-14 22:21:53 +0000 |
commit | d3bd0027d434ad461bfe5970c992445ef6fbb9dc (patch) | |
tree | 18ca92e02bf483cae52deef37c4c41eb7de0ab52 /libguile/guile-snarf.in | |
parent | 7199029717898ba779be2b117566c1cf4e33138c (diff) | |
download | guile-d3bd0027d434ad461bfe5970c992445ef6fbb9dc.tar.gz |
(modern_snarf): Remove everything following and including "^:^" from
the output.
Diffstat (limited to 'libguile/guile-snarf.in')
-rw-r--r-- | libguile/guile-snarf.in | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in index 4d830f8cd..2d4c2dc97 100644 --- a/libguile/guile-snarf.in +++ b/libguile/guile-snarf.in @@ -45,7 +45,7 @@ modern_snarf () # writes stdout { ${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 |