Fix bootstrap bug
							parent
							
								
									23369eecc9
								
							
						
					
					
						commit
						0740e436d6
					
				| 
						 | 
				
			
			@ -0,0 +1,10 @@
 | 
			
		|||
USING: tools.test io.files io io.streams.c ;
 | 
			
		||||
IN: temporary
 | 
			
		||||
 | 
			
		||||
[ "hello world" ] [
 | 
			
		||||
    "test.txt" resource-path <file-writer> [
 | 
			
		||||
        "hello world" write
 | 
			
		||||
    ] with-stream
 | 
			
		||||
 | 
			
		||||
    "test.txt" resource-path "rb" fopen <c-reader> contents
 | 
			
		||||
] unit-test
 | 
			
		||||
| 
						 | 
				
			
			@ -29,6 +29,9 @@ C: <c-reader> c-reader
 | 
			
		|||
M: c-reader stream-read
 | 
			
		||||
    >r >fixnum r> c-reader-handle fread ;
 | 
			
		||||
 | 
			
		||||
M: c-reader stream-read-partial
 | 
			
		||||
    stream-read ;
 | 
			
		||||
 | 
			
		||||
M: c-reader stream-read1
 | 
			
		||||
    c-reader-handle fgetc ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue