/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14.4.1.2.2.2.4.6.1.6.1 by camm, Sat Jan 15 16:28:50 2005 UTC revision 1.14.4.1.2.2.2.4.6.1.6.1.4.1 by camm, Fri Oct 21 16:50:47 2005 UTC
# Line 2259  READ: Line 2259  READ:
2259          else if (strm == Ct)          else if (strm == Ct)
2260                  strm = symbol_value(sLAterminal_ioA);                  strm = symbol_value(sLAterminal_ioA);
2261          check_type_stream(&strm);          check_type_stream(&strm);
2262          if (!listen_stream(strm))          if (!listen_stream(strm)) {
2263                  /* Incomplete! */                  if (eof_errorp == Cnil)
2264                  @(return Cnil)                          @(return eof_value)
2265                    else
2266                            end_of_stream(strm);
2267            }
2268          @(return `read_char(strm)`)          @(return `read_char(strm)`)
2269  @)  @)
2270    

Legend:
Removed from v.1.14.4.1.2.2.2.4.6.1.6.1  
changed lines
  Added in v.1.14.4.1.2.2.2.4.6.1.6.1.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26