Handbook
Glossary
compress-code ( image -- image' )
Vocabulary
tools
.
image
.
compression
.
private
Inputs
image
an
object
Outputs
image'
an
object
Definition
USING:
accessors
kernel
tools.image
tools.image.compression
;
IN:
tools.image.compression.private
:
compress-code
( image -- image' )
dup
uncompressed-code?
[
dup
code>>
compress
>>code
]
when
;