basis/method-chains/method-chains.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel generic generic.parser words fry ;
   4 IN: method-chains
   5
   6 SYNTAX: AFTER: (M:) dupd '[ [ _ (call-next-method) ] _ bi ] define ;
   7 SYNTAX: BEFORE: (M:) over '[ _ [ _ (call-next-method) ] bi ] define ;