1 ! Copyright (C) 2015 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel lexer quotations sequences words ;
6 MACRO: inline-changer ( name -- quot' )
7 [ ">>" append ] [ ">>" prepend ] bi
8 [ "accessors" lookup-word 1quotation ] bi@
9 '[ over [ _ dip call ] dip swap @ ] ;
11 SYNTAX: change: scan-token '[ _ inline-changer ] append! ;