#lang scheme

(require (lib "foreign.ss"))(unsafe!)

(define mzlib (ffi-lib #f))
(provide open-fd-input-port)

;; opens an input port given a file descriptor.
;; (open-fd-input-port 1) ;; would open stdin
(define open-fd-input-port 
(get-ffi-obj "scheme_make_fd_input_port" mzlib
	   (_fun (fd : _int) (_scheme = "fd-port")
		 (_int = 0) (_int = 0) -> _scheme)))