lisp-take-1/parse/istream/file/free.c

20 lines
241 B
C

#include <unistd.h>
#include <debug.h>
#include "struct.h"
#include "free.h"
void free_file_istream(
struct istream* super)
{
ENTER;
struct file_istream* this = (void*) super;
close(this->fd);
EXIT;
}