* guile-doc-snarf.in: use cut instead of sed, that's much much

faster.  also, don't call basename more than needed.  and, to gain
a couple of microseconds more, don't call cat needlessly.  (thanks
to Brad Knotwell).

THANKS

@@ -9,3 +9,4 @@ Contributors since the last release:
 
 For fixes or providing information which led to a fix:
 
+       Brad Knotwell

libguile/ChangeLog

@@ -1,3 +1,10 @@
+2000-06-21  Michael Livshin  <mlivshin@bigfoot.com>
+
+	* guile-doc-snarf.in: use cut instead of sed, that's much much
+	faster.  also, don't call basename more than needed.  and, to gain 
+	a couple of microseconds more, don't call cat needlessly.  (thanks 
+	to Brad Knotwell).
+
 2000-06-21  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* guile-snarf.awk.in, guile-snarf.in, snarf.h:  Rename SCM__I to

libguile/guile-doc-snarf.in

@@ -28,5 +28,4 @@ ${AWK} -f guile-func-name-check "$fullfilename"
 ## 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 $?
-cat ${temp} | sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' | \
-${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
+cut -c1-1023 ${temp} | ${AWK} -f `dirname $0`/guile-snarf.awk ${dot_doc}