 
 SYMBOLS: before after around advised ;
 
+<PRIVATE
 : advise ( quot name word loc --  )
     word-prop set-at ;
+PRIVATE>
     
 : advise-before ( quot name word --  )
     before advise ;

    after get-advice [ call ] each ;

: call-around ( main word --  )
    around get-advice tuck 
    [ [ coresume ] each ] [ call ] [ reverse [ coresume ] each ] tri* ;

: remove-advice ( name word loc --  )

    after advise ;

: advise-around ( quot name word --  )
    [ \ coterminate suffix ] 2dip
    around advise ;

: get-advice ( word type -- seq )
