27 lines
796 B
Factor
27 lines
796 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors definitions generic generic.single kernel
|
|
kernel.private namespaces quotations sequences words ;
|
|
QUALIFIED-WITH: generic.single.private gsp
|
|
IN: generic.hook
|
|
|
|
TUPLE: hook-combination < single-combination var ;
|
|
|
|
C: <hook-combination> hook-combination
|
|
|
|
PREDICATE: hook-generic < generic
|
|
"combination" word-prop hook-combination? ;
|
|
|
|
M: hook-combination picker
|
|
combination get var>> [ get ] curry ;
|
|
|
|
M: hook-combination dispatch# drop 0 ;
|
|
|
|
M: hook-combination mega-cache-quot
|
|
1quotation picker [ gsp:lookup-method (execute) ] surround ;
|
|
|
|
M: hook-generic definer drop \ HOOK: f ;
|
|
|
|
M: hook-generic effective-method
|
|
[ "combination" word-prop var>> get ] keep method-for-object ;
|