;;;; streams-inlines.scm  -*- Scheme -*-
;;;; 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))
  obj )

(define-inline (%check-streams loc strms #!optional argnam)
  (when (%null? strms) (error loc "no stream arguments" strms))
  (%list-for-each/1 (cut %check-stream loc <> argnam) strms)
  strms )