Convert image to binary form and remove debug code.
							parent
							
								
									5768ae0af4
								
							
						
					
					
						commit
						f6d8c0ad22
					
				| 
						 | 
				
			
			@ -29,7 +29,6 @@ SINGLETON: pgm-image
 | 
			
		|||
        n 1 + lim read-numbers
 | 
			
		||||
    ] unless ;
 | 
			
		||||
 | 
			
		||||
ERROR: INSPECT a ;
 | 
			
		||||
:: read-pgm ( -- image )
 | 
			
		||||
    read-token         :> type
 | 
			
		||||
    read-number        :> width
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
										
											Binary file not shown.
										
									
								
							
		Loading…
	
		Reference in New Issue