(find-`) ( string -- n/f )

Vocabulary

txon.private

Inputs

string

an object

Outputs

n/f

an object

Definition

USING: grouping kernel math sequences ;

IN: txon.private

: (find-`) ( string -- n/f )
    2 clump [ first2 `? ] find drop [ 1 + ] [ f ] if* ;