quotation-like

Vocabulary

quotations

Class description

Quotations and compositions built with curry or compose. These callables also implement the sequence protocol. A word used inside a composition contributes one executable element to its sequence view.

Definition

USING: kernel ;

IN: quotations

UNION: quotation-like quotation curried composed ;

Methods

USING: arrays functors.private kernel quotations ;

M: quotation-like >fake-quotations
    >array >fake-quotations fake-quotation boa ;


USING: kernel quotations sequences tools.continuations ;

M: quotation-like add-breakpoint
    dup [ break ] head? [ \ break prefix ] unless ;


USING: macros.expander quotations sequences ;

M: quotation-like condomize [ condomize ] map ;


USING: macros.expander quotations sequences ;

M: quotation-like condomize? [ condomize? ] any? ;


USING: kernel quotations sequences ;

M: quotation-like equal?
    over quotation-like? [ sequence= ] [ 2drop f ] if ;


USING: macros.expander make quotations sequences ;

M: quotation-like expand-macros
    [ begin [ expand-macros* ] each end ] [ ] make ;


USING: macros.expander quotations ;

M: quotation-like expand-macros* expand-macros literal ;


USING: fry fry.private quotations sequences ;

M: quotation-like fry [ [ [ ] ] ] [ (fry) ] if-empty ;


USING: kernel quotations sequences ;

M: quotation-like like
    drop dup quotation? [ >quotation ] unless ;


USING: kernel lint.private namespaces quotations sequences ;

M: quotation-like lint
    lint-definitions-keys get-global [ subseq-of? ] with filter
    ;


USING: locals.rewrite make quotations sequences ;

M: quotation-like quotation-rewrite
    [ [ rewrite-sugar* ] each ] [ ] make ;


USING: kernel locals.rewrite locals.types make quotations
sequences ;

M: quotation-like rewrite-closures*
    dup free-vars [ <quote> ] map
    [ % ] [ var-defs prepend (rewrite-closures) point-free , ]
    [ length \ curry <repetition> % ] tri ;


USING: locals.rewrite make quotations ;

M: quotation-like rewrite-sugar* quotation-rewrite , ;