Paste: locals patch for [| A | { [ A ] } ]

Author: dharmatech
Mode: factor
Date: Wed, 19 Nov 2008 17:32:34
Plain Text |
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.

New Annotation

Summary:
Author:
Mode:
Body: