~ chicken-core (chicken-5) /tests/QUEUE.scm

1;;;; QUEUE.scm
2
3
4(define-interface QUEUE
5  (empty-queue
6   enqueue
7   head
8   empty?
9   dequeue))