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

guile-snarf fix

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* libguile/guile-snarf.in (modern_snarf): Adjusted.
This commit is contained in:
Robin Templeton 2014-06-14 16:16:32 -04:00 • committed by Christine Lemmer-Webber
parent c7fe0eb420
commit ad3d498d31
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/guile-snarf.in
View file

@ -52,7 +52,8 @@ modern_snarf () # writes stdout
## empty file. ## empty file.
echo "/* cpp arguments: $@ */" ; echo "/* cpp arguments: $@ */" ;
${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true
sed -ne 's/ *\^ *\^ */\ sed -ne '/^#define /d
s/ *\^ *\^ */\
/ /
s/.*\n// s/.*\n//
t x t x