;;;; -*- Scheme -*-
;;;; $Header: /home/panda/pg/bevan/progs/elk/scm/RCS/ieee.scm,v 1.2 91/04/02 14:28:58 bevan Exp $
;;;+c
;;; Definitions of some IEEE Scheme functions missing from ELK
;;;
;;; System : ELK
;;; System Specific Features :-
;;;   everything, as this is a compatability file !
;;;-c

;;;+f
;;; Close the given output port.
;;;-f
(define (close-output-port port)
  (close-port port))

;;;+f
;;; Close the given input port.
;;;-f
(define (close-input-port port)
  (close-port port))

(provide 'ieee)
