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

Last change on this file since 14571 was 14571, checked in by Kon Lovett, 10 years ago

Dropped some explicit inlines. Identifiers that are indirectly used (macros & procs) need to be explicitly exported. Ex: the stream-match macros. Also, streams needs $$make-stream-pare explicitly exported by primitives.

File size: 450 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)
11    (error-stream loc obj argnam) ) )
12
13(define-inline (%check-streams loc strms #!optional argnam)
14  (when (%any/1 not-stream? strms)
15    (error-stream loc strms argnam) ) )
Note: See TracBrowser for help on using the repository browser.