|Date:||Wed, 19 Nov 2008 17:32:34|
M: quotation rewrite-literal? ( obj -- ? ) drop t ; M: quotation rewrite-element ( obj -- ) >array rewrite-sequence \ >quotation , ; ! Note, it's important *not* to add this: M: quotation local-rewrite* rewrite-element ; ! I.e. you want deep quotations to be affected by 'rewrite-element' but "top level" ones to be handled the way callables normally are.