;;;; streams.queue.scm  -*- Scheme -*-
;;;; Kon Lovett, Feb '19
;;;; Kon Lovett, Aug '10

;;;; From "samples.ss"
;;;; Provides a functional queue abstraction using streams.

(module (streams queue)

(;export
  ;original
  queue-null
  queue-null?
  queue-cons
  queue-head
  queue-tail
  ;extras
  make-queue
  queue)

(import scheme
  (chicken base)
  (chicken fixnum)
  (chicken type)
  (chicken syntax)
  (only type-checks check-pair)
  streams)

(include-relative "streams-queue.incl")

) ;(streams queue)