primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

[factor.git] / core / slots / slots.factor

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index aed7499673d8892a85bbff7d1c79a71da12ea985..d31dd93837888f876ae18400f2202d4f98abb660 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -7,6 +7,11 @@ kernel.private make math quotations sequences sequences.private
 slots.private strings words ;
 IN: slots
 
+<PRIVATE
+PRIMITIVE: set-slot ( value obj n -- )
+PRIMITIVE: slot ( obj m -- value )
+PRIVATE>
+
 TUPLE: slot-spec name offset class initial read-only ;
 
 PREDICATE: reader < word "reader" word-prop ;