Added TODO's

This commit is contained in:
Justin Ethier 2015-06-22 21:16:30 -04:00
parent 920f5dfd63
commit 8ba904cc30

View file

@ -1002,6 +1002,9 @@ port_type Cyc_io_open_input_file(object str) {
return p; return p;
} }
TODO: Cyc_io_close_port
TODO: close-input-port can be written in scheme code, I think, using input-port? and close-port
object Cyc_io_close_input_port(object port) { object Cyc_io_close_input_port(object port) {
if (port && type_of(port) == port_tag) { if (port && type_of(port) == port_tag) {
FILE *stream = ((port_type *)port)->fp; FILE *stream = ((port_type *)port)->fp;