Remove unused locals.
parent
0448c867e2
commit
ef365bfa53
|
@ -58,8 +58,6 @@ SINGLETON: pbm-image
|
||||||
read-token :> type
|
read-token :> type
|
||||||
read-number :> width
|
read-number :> width
|
||||||
read-number :> height
|
read-number :> height
|
||||||
width height * :> npixels
|
|
||||||
width 8 mod :> leftover
|
|
||||||
|
|
||||||
type {
|
type {
|
||||||
{ "P1" [ [ [ read-ascii-bits ] ignore-errors ] B{ } make ] }
|
{ "P1" [ [ [ read-ascii-bits ] ignore-errors ] B{ } make ] }
|
||||||
|
|
Loading…
Reference in New Issue