1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel namespaces assocs accessors words sequences classes.tuple ;
8 classes [ H{ } clone ] initialize
10 : create-class ( class -- class )
11 "smalltalk.classes" create ;
13 ERROR: no-class name ;
15 : lookup-class ( class -- class )
16 classes get ?at [ no-class ] unless ;
18 : define-class ( class superclass ivars -- class-word )
19 [ create-class ] [ lookup-class ] [ ] tri*
20 [ define-tuple-class ] [ 2drop dup dup name>> classes get set-at ] 3bi ;
22 : define-foreign ( class name -- )
25 tuple "Object" define-foreign