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