diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-11-24 09:10:51 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-11-24 09:10:51 +0100 |
commit | 92834759359e8061479215579134e70da23c6336 (patch) | |
tree | 9533bde64e893df9ae412d2adff23cff3da39037 | |
parent | 8e7ff77376d99f7c0641d906e40f85320273bb20 (diff) | |
download | guile-92834759359e8061479215579134e70da23c6336.tar.gz |
Fix comments in `test-scm-c-read.c'.
* test-suite/standalone/test-scm-c-read.c (make_port): Fix comments.
-rw-r--r-- | test-suite/standalone/test-scm-c-read.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/standalone/test-scm-c-read.c b/test-suite/standalone/test-scm-c-read.c index be8ea808a..1b4caa1c7 100644 --- a/test-suite/standalone/test-scm-c-read.c +++ b/test-suite/standalone/test-scm-c-read.c @@ -42,10 +42,10 @@ make_port (scm_t_bits 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); - /* Have the port directly access the buffer (bytevector). */ + /* Use C_BUFFER as PORT's internal buffer. */ c_port = SCM_PTAB_ENTRY (port); c_port->read_pos = c_port->read_buf = (unsigned char *) c_buffer; c_port->read_end = (unsigned char *) c_buffer + PORT_BUFFER_SIZE; |