(bind-func enqueue_midi_event
(let ((tail 0) (head 0))
(lambda (msg timestamp)
(tfill! (aref-ptr XTM_MIDI_EVENT_QUEUE (% tail XTM_MIDI_EVENT_QUEUE_SIZE))
(Pm_Message_Type msg) (Pm_Message_Data1 msg) (Pm_Message_Data2 msg) (Pm_Message_Channel msg)
timestamp (clock_clock))
(set! tail (+ tail 1))
#t)))