PageRenderTime 47ms CodeModel.GetById 41ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 0ms

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

http://github.com/abeaumont/factor
Unknown | 7 lines | 6 code | 1 blank | 0 comment | 0 complexity | f2f1c0e6436a2c6ab792dfa945c2dcec MD5 | raw file
1! Copyright (C) 2009 Slava Pestov.
2! See http://factorcode.org/license.txt for BSD license.
3USING: kernel generic generic.parser words fry ;
4IN: method-chains
5
6SYNTAX: AFTER: (M:) dupd '[ [ _ (call-next-method) ] _ bi ] define ;
7SYNTAX: BEFORE: (M:) over '[ _ [ _ (call-next-method) ] bi ] define ;