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

* guile-snarf.in: Change regexp "^SCM__I" --> "^ *SCM__I".

Browse source 
(The preprocessor might insert spaces before the identifier.)
This commit is contained in:
Mikael Djurfeldt 2000-06-12 14:39:42 +00:00
parent 9a8a1e8a55
commit e8ec2fd062
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

@ -10,7 +10,7 @@ test -n "${CPP+set}" || CPP="@CPP@"
## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
< ${temp} grep "^SCM__I" | sed -e "s/^SCM__I//" -e 's/SCM__D.*$//g'
< ${temp} grep "^ *SCM__I" | sed -e "s/^ *SCM__I//" -e 's/SCM__D.*$//g'
## Apparently, AIX's preprocessor is unhappy if you try to #include an
## empty file.