+ (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
+;;;
+;;; 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* (make-time-segment time #:optional (queue (make-q)))
+ (let ((time (match time
+ ;; time was just an integer (just the second)
+ ((? integer? _) (cons time 0))
+ ;; time is already a cons of second and microsecnd
+ (((? integer? s) (? integer? u)) time)
+ (_ (throw 'invalid-time "Invalid time" time)))))
+ (make-time-segment-intern time queue)))
+
+(define (make-schedule)
+ '())
+
+(define (schedule-add-new-segment! schedule time)
+ (error))