16 lines
290 B
Scheme
16 lines
290 B
Scheme
|
; RFC6817
|
||
|
|
; https://tools.ietf.org/html/rfc6817
|
||
|
|
|
||
|
|
(define-record-type ledbat-params
|
||
|
|
(fields
|
||
|
|
|
||
|
|
(define-record-type ledbat-state
|
||
|
|
(fields current_delays base_delays last_rollover flightsize cwnd cto))
|
||
|
|
|
||
|
|
(define (on-init params)
|
||
|
|
(make-ledbat-state
|
||
|
|
|
||
|
|
(define (on-data) )
|
||
|
|
|
||
|
|
(define (on-ack) )
|