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