Paste: renaming quot delimiters

{ ": asdf < '< > > ;" } [
    ": asdf [ '[ ] ] ;" [
        dup { [ single-matched-literal? ] [ delimiter>> "[" = ] } 1&&
        [ [ drop "<" ] change-delimiter ] when
    ] rewrite-string
] unit-test