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

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

Renamed obj to item to escape define-inline "coloring" issue.

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