Skip to content

Commit

Permalink
Revert "Do not apply udev-monitor-set-timeout! to #f values."
Browse files Browse the repository at this point in the history
This reverts commit 2014b87.  A better
correction will follow.
  • Loading branch information
Apteryks committed Dec 30, 2023
1 parent e5605bc commit 3387958
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions modules/udev/monitor.scm
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,6 @@
;;; Code:

(define-module (udev monitor)
#:use-module (srfi srfi-1)
#:export (udev-monitor
udev-monitor?
%make-udev-monitor
Expand Down Expand Up @@ -64,9 +63,7 @@ seconds and microseconds, respectively. If TIMEOUT-USEC, is used, TIMEOUT-SEC
must also have a value, else it is ignored, as for the 'secs' and 'usecs'
argument of Guile's 'select' procedure."
(let ((monitor (%make-udev-monitor udev)))
(apply udev-monitor-set-timeout!
(cons monitor
(filter-map identity (list timeout-sec timeout-usec))))
(udev-monitor-set-timeout! monitor timeout-sec timeout-usec)
(udev-monitor-set-callback! monitor callback)
(udev-monitor-set-error-callback! monitor error-callback)
(when filter
Expand Down

0 comments on commit 3387958

Please sign in to comment.