; * src/lread.c (read0, skip_lazy_string): Fix commentary wording.
This commit is contained in:
parent
b6b384023a
commit
f42de74ebe
1 changed files with 2 additions and 2 deletions
|
@ -3401,7 +3401,7 @@ read_bool_vector (Lisp_Object readcharfun)
|
||||||
|
|
||||||
/* Skip (and optionally remember) a lazily-loaded string
|
/* Skip (and optionally remember) a lazily-loaded string
|
||||||
preceded by "#@". Return true if this was a normal skip,
|
preceded by "#@". Return true if this was a normal skip,
|
||||||
false if we read #@00 (which skips to EOF). */
|
false if we read #@00 (which skips to EOB). */
|
||||||
static bool
|
static bool
|
||||||
skip_lazy_string (Lisp_Object readcharfun)
|
skip_lazy_string (Lisp_Object readcharfun)
|
||||||
{
|
{
|
||||||
|
@ -3938,7 +3938,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
|
||||||
and function definitions that can be loaded lazily. */
|
and function definitions that can be loaded lazily. */
|
||||||
if (skip_lazy_string (readcharfun))
|
if (skip_lazy_string (readcharfun))
|
||||||
goto read_obj;
|
goto read_obj;
|
||||||
obj = Qnil; /* #@00 skips to EOF and yields nil. */
|
obj = Qnil; /* #@00 skips to EOB and yields nil. */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case '$':
|
case '$':
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue