compress-object? ( obj -- ? )

Vocabulary

tools.deploy.shaker

Inputs

obj

an object

Outputs

?

an object

Definition

USING: arrays byte-arrays combinators kernel sequences strings ;

IN: tools.deploy.shaker

: compress-object? ( obj -- ? )
    {
        { [ dup array? ] [ empty? ] }
        { [ dup byte-array? ] [ drop t ] }
        { [ dup string? ] [ drop t ] }
        { [ dup wrapper? ] [ drop t ] }
        [ drop f ]
    } cond ;