io: implement stream protocols on f
Fixes deployed applications that write to output-streamdb4
							parent
							
								
									4c0d73da3c
								
							
						
					
					
						commit
						78d23ce6a0
					
				| 
						 | 
				
			
			@ -248,3 +248,15 @@ M: output-stream stream-nl CHAR: \n swap stream-write1 ; inline
 | 
			
		|||
M: output-stream stream-seekable? drop f ; inline
 | 
			
		||||
M: output-stream stream-length drop f ; inline
 | 
			
		||||
 | 
			
		||||
M: f stream-read1 drop f ; inline
 | 
			
		||||
M: f stream-read-unsafe 3drop 0 ; inline
 | 
			
		||||
M: f stream-read-until 2drop f f ; inline
 | 
			
		||||
M: f stream-read-partial-unsafe 3drop 0 ; inline
 | 
			
		||||
M: f stream-readln drop f ; inline
 | 
			
		||||
M: f stream-contents drop f ; inline
 | 
			
		||||
 | 
			
		||||
M: f stream-write1 2drop ; inline
 | 
			
		||||
M: f stream-write 2drop ; inline
 | 
			
		||||
M: f stream-flush drop ; inline
 | 
			
		||||
M: f stream-nl drop ; inline
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue