;;;; streams-derived.scm

(declare
  (bound-to-procedure ##sys#signal-hook))

(module streams-derived

(;export
  ; srfi-41 derived
  define-stream
  stream
  stream-let
  stream-match
  stream-of
  stream-constant
  list->stream
  stream->list
  port->stream
  stream-length
  stream-ref
  stream-append
  stream-concat
  stream-reverse
  stream-drop
  stream-drop-while
  stream-take
  stream-take-while
  stream-filter
  stream-scan
  stream-fold
  stream-for-each
  stream-map
  stream-unfold
  stream-unfolds
  stream-from
  stream-iterate
  stream-range
  stream-zip
  ;explicit export: compiler cannot follow syntax >-> syntax
  stream-match-test
  stream-match-pattern)

(import scheme
  (chicken base)
  (chicken fixnum)
  (chicken syntax)
  (srfi 9)
  (srfi 23)
  (only (srfi-1) any)
  (only type-checks
    check-number check-procedure
    check-natural-integer
    check-input-port check-list)
  streams-primitive)

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

) ;module streams-derived