Lines Matching refs:evt
11 (provide (rename-out [progress-evt?* progress-evt?])
13 port-progress-evt
16 check-progress-evt
17 unwrap-progress-evt)
19 (struct progress-evt (port evt)
20 #:property prop:evt (lambda (pe)
21 (wrap-evt (progress-evt-evt pe)
24 (define progress-evt?*
25 (let ([progress-evt?
27 [(v) (progress-evt? v)]
29 (and (progress-evt? v)
30 (eq? port (progress-evt-port v)))])])
31 progress-evt?))
38 (and (method core-input-port in get-progress-evt) #t)))
40 (define/who (port-progress-evt [orig-in (current-input-port)])
43 (define get-progress-evt (method core-input-port in get-progress-evt))
44 (if get-progress-evt
45 (progress-evt orig-in (get-progress-evt in))
46 (raise-arguments-error 'port-progress-evt
50 (define/who (port-commit-peeked amt progress-evt evt [in (current-input-port)])
52 (check who progress-evt? progress-evt)
53 (check who sync-atomic-poll-evt?
54 … #:contract "(or/c channel-put-evt? channel? semaphore? semaphore-peek-evt? always-evt never-evt)"
55 evt)
57 (check-progress-evt who progress-evt in)
61 ;; since that's handled as the progress evt becoming ready
63 amt (progress-evt-evt progress-evt) evt
68 (define (check-progress-evt who progress-evt in)
69 (unless (progress-evt?* progress-evt in)
70 (raise-arguments-error who "evt is not a progress evt for the given port"
71 "evt" progress-evt
74 (define (unwrap-progress-evt progress-evt)
75 (and progress-evt
76 (progress-evt-evt progress-evt)))