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
|
n 1 + lim read-numbers
|
||||||
] unless ;
|
] unless ;
|
||||||
|
|
||||||
ERROR: INSPECT a ;
|
|
||||||
:: read-pgm ( -- image )
|
:: read-pgm ( -- image )
|
||||||
read-token :> type
|
read-token :> type
|
||||||
read-number :> width
|
read-number :> width
|
||||||
|
|
|
||||||
Binary file not shown.
Loading…
Reference in New Issue