range ( verbexp alist -- verbexp )

Vocabulary

verbal-expressions

Inputs

verbexp	an object
alist	an object

Outputs

verbexp

an object

Definition

USING: assocs kernel sequences verbal-expressions.private ;

IN: verbal-expressions

: range ( verbexp alist -- verbexp )
    [ [ re-escape ] bi@ "-" glue ] { } assoc>map
    concat "([" "])" surround add ;