mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 15:40:29 +02:00
Code Activity

Fix comments in `test-scm-c-read.c'.

Browse source 
* test-suite/standalone/test-scm-c-read.c (make_port): Fix comments.
This commit is contained in:
Ludovic Courtès 2008-11-24 09:10:51 +01:00
parent 86b9e1d9c9
commit f36b070b65
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/standalone/test-scm-c-read.c
View file

@ -42,10 +42,10 @@ make_port (scm_t_bits port_type)
port = scm_new_port_table_entry (port_type); port = scm_new_port_table_entry (port_type);
/* Attach it the underlying u8vector, which we'll use as PORT's buffer. */ /* Associate C_BUFFER with PORT, for test purposes. */
SCM_SETSTREAM (port, (scm_t_bits) c_buffer); SCM_SETSTREAM (port, (scm_t_bits) c_buffer);
/* Have the port directly access the buffer (bytevector). */ /* Use C_BUFFER as PORT's internal buffer. */
c_port = SCM_PTAB_ENTRY (port); c_port = SCM_PTAB_ENTRY (port);
c_port->read_pos = c_port->read_buf = (unsigned char *) c_buffer; c_port->read_pos = c_port->read_buf = (unsigned char *) c_buffer;
c_port->read_end = (unsigned char *) c_buffer + PORT_BUFFER_SIZE; c_port->read_end = (unsigned char *) c_buffer + PORT_BUFFER_SIZE;