2005-02-18 20:37:01 -05:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
2005-01-16 17:58:28 -05:00
|
|
|
IN: generic
|
2005-02-18 20:37:01 -05:00
|
|
|
USING: kernel words ;
|
2005-01-16 17:58:28 -05:00
|
|
|
|
|
|
|
|
! Null metaclass with no instances.
|
|
|
|
|
SYMBOL: null
|
2005-03-05 14:45:23 -05:00
|
|
|
null [ drop [ ] ] "builtin-supertypes" set-word-prop
|
|
|
|
|
null [ 2drop 2drop ] "add-method" set-word-prop
|
|
|
|
|
null [ drop f ] "predicate" set-word-prop
|
|
|
|
|
null 100 "priority" set-word-prop
|
|
|
|
|
null [ 2drop t ] "class<" set-word-prop
|
2005-01-16 17:58:28 -05:00
|
|
|
null null define-class
|
