make a system call "inotify_init" return result and errno

make-system-call-and-get-errno

(call-with-blocked-asyncs                                                                                                                                      
 (lambda ()                                                                                                                                                    
   (values                                                                                                                                                     
    ((pointer->procedure int                                                                                                                                   
                         (dynamic-func "inotify_init" libc)                                                                                                    
                         '()))                                                                                                                                 
    (parse-c-struct                                                                                                                                            
     (dynamic-pointer "__errno_location" (dynamic-link))                                                                                                       
     (list int)))                                                                                                                                              
   ))