+ (queue agenda-queue)
+ (prompt-tag agenda-prompt-tag)
+ (port-mapping agenda-port-mapping)
+ (schedule agenda-schedule))
+
+(define (make-async-prompt-tag)
+ (make-prompt-tag "prompt"))
+
+(define* (make-agenda #:key
+ (queue (make-q))
+ (prompt (make-prompt-tag))
+ (port-mapping (make-port-mapping))
+ (schedule (make-schedule)))
+ (make-agenda-intern queue prompt port-mapping schedule))
+
+
+;;; Schedule
+;;;
+;;; This is where we handle timed events for the future
+
+;; This section totally borrows from SICP
+;; <3 <3 <3
+
+;; NOTE: time is a cons of (seconds . microseconds)
+
+(define-record-type <time-segment>
+ (make-time-segment-intern time queue)
+ time-segment?
+ (time time-segment-time)
+ (queue time-segment-queue time-segment-set-queue!))
+
+(define (time-segment-right-format time)
+ (match time
+ ;; time is already a cons of second and microsecnd
+ (((? integer? s) (? integer? u)) time)
+ ;; time was just an integer (just the second)
+ ((? integer? _) (cons time 0))
+ (_ (throw 'invalid-time "Invalid time" time))))
+
+(define* (make-time-segment time #:optional (queue (make-q)))
+ (make-time-segment-intern time queue))
+
+(define (make-schedule)
+ '())
+
+(define (time-< time1 time2)
+ (cond ((< (car time1)
+ (car time2))
+ #t)
+ ((and (= (car time1)
+ (car time2))
+ (< (cdr time1)
+ (cdr time2)))
+ #t)
+ (else #f)))
+
+(define (time-= time1 time2)
+ (and (= (car time1) (car time2))
+ (= (cdr time1) (cdr time2))))