2015-08-12 00:54:20 -04:00
|
|
|
! Copyright (C) 2015 Doug Coleman.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: fry kernel lexer macros quotations sequences words ;
|
|
|
|
IN: changer
|
|
|
|
|
|
|
|
MACRO: inline-changer ( name -- quot' )
|
|
|
|
[ ">>" append ] [ ">>" prepend ] bi
|
|
|
|
[ "accessors" lookup-word 1quotation ] bi@
|
2018-01-20 02:40:23 -05:00
|
|
|
'[ over [ _ dip call ] dip swap @ ] ;
|
2015-08-12 00:54:20 -04:00
|
|
|
|
|
|
|
SYNTAX: change: scan-token '[ _ inline-changer ] append! ;
|