*** empty log message ***

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index efd2f64..c714a3c 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,8 +1,12 @@
 2000-05-22  Michael Livshin  <mlivshin@bigfoot.com>
 
        * guile-doc-snarf.in: put the preprocessed file through sed to
-       trim all lines to 512 chars.  I hope it doesn't break anybody's
-       shell.  we'll see.
+       trim all lines to 1024 chars.  I hope it doesn't break anybody's
+       sed.  we'll see.  (note: this is lossy trimming, i.e. the spill
+       isn't wrapped around but actually chopped off.  this seemed to me
+       safe because the current snarfer doesn't understand multi-line
+       cookies anyway.  in the long term, it would be nice not to depend
+       on AWK for anything.)
 
        * gc.h (SCM_[SET_]CELL_{WORD,OBJECT}, SCM_VALIDATE_CELL): reverted 
        the previous change to this macros, after deciding to torture the

diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
index c4af897..6a111d3 100755 (executable)
--- a/libguile/guile-doc-snarf.in
+++ b/libguile/guile-doc-snarf.in
@@ -28,6 +28,6 @@ ${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 "$@" | \
-sed 's/^\(................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................\).*/\1/g' \
+sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' \
 > ${temp} || exit $?
 < ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`