* snarf.h (SCM_ASSERT): Give new definition of SCM_ASSERT when in

[bpt/guile.git] / libguile / guile-doc-snarf.in

diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
index 9ace981..600ee0b 100755 (executable)
--- a/libguile/guile-doc-snarf.in
+++ b/libguile/guile-doc-snarf.in
@@ -3,6 +3,9 @@
 
 filename=$1; shift
 
+# strip path to source directory
+filename=`basename $filename`
+
 # we need to be sure that the .x file exists
 # since the .c/.cc file may include it
 # (the old guile-snarf did not have this problem
@@ -21,4 +24,4 @@ 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} awk -f `dirname $0`/guile-snarf.awk `basename $filename`
+< ${temp} awk -f `dirname $0`/guile-snarf.awk $filename