! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.

IN: generic
USING: errors hashtables kernel lists math parser strings
sequences vectors words ;

! Complement metaclass, contains all objects not in a certain class.
SYMBOL: complement

: complement-predicate ( complement -- list )
    "predicate" word-prop [ not ] append ;

: complement-types ( class -- types )
    "complement" word-prop types object types seq-diff ;

: define-complement ( class complement -- )
    2dup "complement" set-word-prop
    dupd complement-predicate "predicate" set-word-prop
    dup dup complement-types "types" set-word-prop
    complement define-class ;

PREDICATE: word complement metaclass complement = ;