; * src/lread.c (read0, skip_lazy_string): Fix commentary again.

diff --git a/src/lread.c b/src/lread.c
index f8ee4e63e23e44af649238b6a76e2e90c92fb1c7..c9df72a73061fccfbab953d044914a72eea3ca15 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -3401,7 +3401,7 @@ read_bool_vector (Lisp_Object readcharfun)
 
 /* Skip (and optionally remember) a lazily-loaded string
    preceded by "#@".  Return true if this was a normal skip,
-   false if we read #@00 (which skips to EOB).  */
+   false if we read #@00 (which skips to EOB/EOF).  */
 static bool
 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.  */
            if (skip_lazy_string (readcharfun))
              goto read_obj;
-           obj = Qnil;       /* #@00 skips to EOB and yields nil.  */
+           obj = Qnil;       /* #@00 skips to EOB/EOF and yields nil.  */
            break;
 
          case '$':