/*************************************************************
 * File: lib/close.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce (pjb@carmel.com)
 * Revision History:
 *	970304	Start of revision history
 */

#include <termio.h>

/** close(fd) close fd */
close(fd)
int fd;
{

if (fd < FILEOFFSET) return(_close(fd));

fd -= FILEOFFSET;
if (!_mfile[fd].open) return(-1);
_mfile[fd].open = 0;
return(0);
}