source: project/release/4/srfi-41/trunk/streams-inlines.scm @ 14609

Last change on this file since 14609 was 14609, checked in by Kon Lovett, 11 years ago

Better errmsg (the original) for nary stream procs.

File size: 504 bytes
Line 
1;;;; streams-inlines.scm
2;;;; Kon Lovett, Apr '09
3
4;;;
5
6(define-inline (%stream? obj) (%structure-instance? obj 'stream))
7(define-inline (%not-stream? obj) (not (%stream? obj)))
8
9(define-inline (%check-stream loc obj #!optional argnam)
10  (unless (%stream? obj) (error-stream loc obj argnam)) )
11
12(define-inline (%check-streams loc strms #!optional argnam)
13  (when (%null? strms) (error loc "no stream arguments" argnam))
14  (when (%any/1 not-stream? strms) (error-stream loc strms argnam)) )
Note: See TracBrowser for help on using the repository browser.