/*
   Close.
   
   See COPYLEFT.JRD.
*/

#include <osbind.h>
#include <errno.h>

int close(h)
int h;
{
  int result = Fclose(h);
  
  if (result < 0)
	errno = result;
  return(result);
}