~ chicken-core (chicken-5) /tests/test-queue.scm

 1;;;; test-queue.scm
 2
 3
 4(include "QUEUE")
 5
 6
 7(functor (test-queue (Q QUEUE)) *
 8  (import scheme (chicken base) Q)
 9  
10  (define (list->queue lst)
11    (foldl (lambda (q x) (enqueue q x)) empty-queue lst))
12
13  (define (queue->list q)
14    (if (empty? q)
15	'()
16	(cons (head q) (queue->list (dequeue q))))) )