; GENERATED BY CHICKEN 5.0.0 FROM queues.scm

(queues#queue?
  (##core#lambda
    (f_219 #t (k220 x18) 6)
    (##core#call
      (#t)
      (##core#variable (k220))
      (##core#inline ("C_i_structurep") (##core#variable (x18)) '(queue)))))

(queues#queue-empty?
  (##core#lambda
    (f_234 #t (k235 q23) 15)
    (let (r237)
      (##core#inline
        ("C_i_check_structure_2")
        (##core#variable (q23))
        '(queue)
        '(queue-empty?))
      (let (r244)
        (##core#inline ("C_slot") (##core#variable (q23)) '(1))
        (##core#call
          (#t)
          (##core#variable (k235))
          (##core#inline ("C_eqp") '(()) (##core#variable (r244))))))))

(queues#make-queue
  (##core#lambda
    (f_213 #t (k214) 8)
    (##core#call
      (#t)
      (##core#variable (k214))
      (##core#inline_allocate ("C_a_i_record4" 5) '(queue) '(()) '(()) '(0)))))

(queues#queue-length
  (##core#lambda
    (f_225 #t (k226 q20) 11)
    (let (r228)
      (##core#inline
        ("C_i_check_structure_2")
        (##core#variable (q20))
        '(queue)
        '(queue-length))
      (##core#call
        (#t)
        (##core#variable (k226))
        (##core#inline ("C_slot") (##core#variable (q20)) '(3))))))

; END OF FILE