;;;; streams-inlines.scm
;;;; Kon Lovett, Apr '09

;;;

(define-inline (%stream? obj) (%structure-instance? obj 'stream))

(define-inline (%check-stream loc obj #!optional argnam)
  (unless (%stream? obj) (error-stream loc obj argnam)) )

(define-inline (%check-streams loc strms #!optional argnam)
  (when (%null? strms) (error loc "no stream arguments"))
  (%list-every/1 (lambda (x) (%check-stream loc x argnam)) strms) )