Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use input ports

Browse source
This commit is contained in:
Justin Ethier 2017-08-18 18:30:40 -04:00
parent e01815ae21
commit a02a1206be
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mstreams.c
View file

@ -36,7 +36,7 @@ port_type *Cyc_io_open_input_string(void *data, object str)
{
// // Allocate port on the heap so the location of mem_buf does not change
port_type *p;
make_port(sp, NULL, 0);
make_input_port(sp, NULL, CYC_IO_BUF_LEN);
Cyc_check_str(data, str);
p = (port_type *)Cyc_heap_alloc_port(data, &sp);
@ -57,7 +57,7 @@ port_type *Cyc_io_open_input_bytevector(void *data, object bv)
{
// // Allocate port on the heap so the location of mem_buf does not change
port_type *p;
make_port(sp, NULL, 0);
make_input_port(sp, NULL, CYC_IO_BUF_LEN);
Cyc_check_bvec(data, bv);
p = (port_type *)Cyc_heap_alloc_port(data, &sp);