core/generic/early-generic.factor

   1 ! Copyright (C) 2004, 2005 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: generic
   4 USING: errors kernel kernel-internals ;
   5
   6 DEFER: standard-combination
   7
   8 DEFER: math-combination
   9
  10 : delegate ( obj -- delegate )
  11     dup tuple? [ 3 slot ] [ drop f ] if ;
  12
  13 GENERIC: set-delegate ( delegate tuple -- )
  14 M: tuple set-delegate 3 set-slot ;