1(library (nmosh win32 handle) 2 (export 3 win32-handle? 4 win32-handle-pipe 5 win32-handle-read 6 ;win32-handle-write 7 win32-handle-close) 8 (import (primitives %win32_process_pipe 9 %win32_handle_read 10 %win32_handle_write 11 %win32_handle_close) 12 (mosh ffi) 13 (rnrs)) 14 15(define win32-handle? pointer?) 16 17(define (win32-handle-close h) 18 (%win32_handle_close h)) 19 20(define (win32-handle-read h buf siz) 21 (%win32_handle_read h buf siz)) 22 23(define (win32-handle-pipe) 24 (%win32_process_pipe)) 25 26) 27 28