WIP ledbat

This commit is contained in:
Quentin 2020-07-10 11:07:46 +02:00
parent 6b152e8330
commit 0b0553f038

15
algo/ledbat.scm Normal file
View file

@ -0,0 +1,15 @@
; 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) )