Introducing REFRAMER: Close Cousin to ENCLOSE

[hostilefork]

@hostilefork

But what if we made a REQUOTE that:

• would build a frame for whatever follows it
• counted how many quoting levels were on the first argument in that frame
• took the quoting levels off that first argument
• ran the function
• added the quoting levels back to the result

It should be an easier function to write than it is, but even so it's not that hard:

requote: reframer func [
     "Remove Quoting Levels From First Argument and Re-Apply to Result"
     f [frame!]
     <local> p num-quotes result
][
    p: first words of f
    num-quotes: quotes of f.(p)
    f.(p): noquote f.(p)

    if null? result: eval f [return null]  ; exempt NULL from requoting

    return quote:depth get:any $result num-quotes
]

With FRAME! Indexing By Integer and the new TRAP propagating definitional error operator, it gets easier to write, faster, and more robust...

requote: reframer func [
    "Remove Quoting Levels From First Argument and Re-Apply to Result"
    f [frame!]
    <local> num-quotes
][
    num-quotes: quotes of (f.1 except [
        panic ["REQUOTE must have an argument to process"]
    ])

    f.1: noquote f.1

    return quote:depth opt (trap eval f) num-quotes
]