gistfile1.txt

( This is an implementation of crc's ifExists which demonstrates the )
( parsing of curly braces for the conditional evaluation of text.    )

{{
  : cut ( a-a )
    dup getLength over + 1- dup @ 32 =if
      0 swap ! else drop then ;
  : "cut ( c"-a ) accept tib tempString cut ;
  : '{ ( "-a ) char: { "cut ;
  : '} ( "-a ) char: } "cut ;
---reveal---
  : ifExists ( "- )
    '{ find
    '} swap if dup getLength eval ;then drop ;
}}