comparison src/lstream.c @ 5126:2a462149bd6a ben-lisp-object

merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 19:04:27 -0600
parents b5df3737028a 6f2158fa75ed
children a9c41067dd88
comparison
equal deleted inserted replaced
5125:b5df3737028a 5126:2a462149bd6a
1652 struct lisp_buffer_stream *str; 1652 struct lisp_buffer_stream *str;
1653 Charbpos bmin, bmax; 1653 Charbpos bmin, bmax;
1654 int reading = !strcmp (mode, "r"); 1654 int reading = !strcmp (mode, "r");
1655 1655
1656 /* Make sure the luser didn't pass "w" in. */ 1656 /* Make sure the luser didn't pass "w" in. */
1657 if (!strcmp (mode, "w")) 1657 assert (strcmp (mode, "w"));
1658 ABORT ();
1659 1658
1660 if (flags & LSTR_IGNORE_ACCESSIBLE) 1659 if (flags & LSTR_IGNORE_ACCESSIBLE)
1661 { 1660 {
1662 bmin = BUF_BEG (buf); 1661 bmin = BUF_BEG (buf);
1663 bmax = BUF_Z (buf); 1662 bmax = BUF_Z (buf);