at-error ( key assoc quot: ( key -- replacement ) -- value )

Vocabulary

regexp.parser

Inputs

key	an object
assoc	an object
quot	a quotation with stack effect ( key -- replacement )

Outputs

value

an object

Definition

USING: assocs kernel ;

IN: regexp.parser

:: at-error
    ( key assoc quot: ( key -- replacement ) -- value )
    key assoc at* [ drop key quot call ] unless ; inline