extra/changer/changer.factor

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