factor/library/generic/object.factor

! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: generic
USING: kernel lists math sequences vectors words ;

! Catch-all metaclass for providing a default method.
SYMBOL: object

object num-types >vector "types" set-word-prop

object [
    ( generic vtable definition class -- )
    drop over length [
        3dup rot set-nth
    ] repeat 3drop
] "add-method" set-word-prop

object [ drop t ] "predicate" set-word-prop

object object define-class
0.72 ready for release 2005-02-18 20:37:01 -05:00			`! Copyright (C) 2004, 2005 Slava Pestov.`
			`! See http://factor.sf.net/license.txt for BSD license.`
Moved generic stuff to its own directory, and merged vectors and vector-combinators 2004-12-13 00:13:54 -05:00			`IN: generic`
handbook updates, remove vector-length vector-nth set-vector-nth 2005-04-26 00:35:55 -04:00			`USING: kernel lists math sequences vectors words ;`
Moved generic stuff to its own directory, and merged vectors and vector-combinators 2004-12-13 00:13:54 -05:00
			`! Catch-all metaclass for providing a default method.`
			`SYMBOL: object`

clean up metaclasses 2005-08-14 18:13:16 -04:00			`object num-types >vector "types" set-word-prop`
redid = hashcode and math words using new object system 2004-12-18 23:18:32 -05:00
			`object [`
generic cleanups and type inference work 2004-12-23 23:55:22 -05:00			`( generic vtable definition class -- )`
handbook updates, remove vector-length vector-nth set-vector-nth 2005-04-26 00:35:55 -04:00			`drop over length [`
			`3dup rot set-nth`
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00			`] repeat 3drop`
renaming word-parameter to word-def; renaming word-property to word-prop 2005-03-05 14:45:23 -05:00			`] "add-method" set-word-prop`
redid = hashcode and math words using new object system 2004-12-18 23:18:32 -05:00
renaming word-parameter to word-def; renaming word-property to word-prop 2005-03-05 14:45:23 -05:00			`object [ drop t ] "predicate" set-word-prop`
type inference work, and = for aliens 2004-12-23 01:14:07 -05:00
type inference work; class\/ and class/\ words 2004-12-23 02:14:40 -05:00			`object object define-class`