/extra/method-chains/method-chains.factor

http://github.com/abeaumont/factor · Factor · 7 lines · 4 code · 1 blank · 2 comment · 0 complexity · f2f1c0e6436a2c6ab792dfa945c2dcec MD5 · raw file 

    

  1. ! Copyright (C) 2009 Slava Pestov.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: kernel generic generic.parser words fry ;
    4. 

  4. IN: method-chains
    5. 

  5. 

  6. SYNTAX: AFTER: (M:) dupd '[ [ _ (call-next-method) ] _ bi ] define ;
    7. 

  7. SYNTAX: BEFORE: (M:) over '[ _ [ _ (call-next-method) ] bi ] define ;
    8.