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

[factor.git] / core / classes / tuple / tuple.factor

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 4c9102e4f9a4d601055593b49242e9c2968dab1e..d8ea8b02d4b261ce0350c62577b8527acf60fbe3 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -7,6 +7,11 @@ make math math.private memory namespaces quotations sequences
 sequences.private slots slots.private strings words ;
 IN: classes.tuple
 
+<PRIVATE
+PRIMITIVE: <tuple> ( layout -- tuple )
+PRIMITIVE: <tuple-boa> ( slots... layout -- tuple )
+PRIVATE>
+
 PREDICATE: tuple-class < class
     "metaclass" word-prop tuple-class eq? ;