Vocabulary
assocs.extras

Inputs
assocan object
quot1a quotation with stack effect ( ..a -- ..b )
quot2a quotation with stack effect ( ..a assoc -- ..b )


Outputs
None

Definition


: if-assoc-empty
( ..a assoc quot1: ( ..a -- ..b ) quot2: ( ..a assoc -- ..b ) -- ..b )
[ dup assoc-empty? ] [ [ drop ] prepose ] [ ] tri* if ;
inline