misc: add private definitions to syntax-test file.

[factor.git] / misc / syntax-test.factor

diff --git a/misc/syntax-test.factor b/misc/syntax-test.factor
index ea5d915e44f2fbb5579bc838449059e80863a370..ca39b3ad38ca978991a914a4a2c7f40fced001a4 100644 (file)
--- a/misc/syntax-test.factor
+++ b/misc/syntax-test.factor
@@ -63,6 +63,27 @@
     SLOT: name
     C: <foo> foo
 
+! Private definitions
+
+<PRIVATE
+
+    : word ( x -- ) drop ;
+    :: word ( x -- ) x drop ;
+    TYPED: word ( a b: class ... -- x: class y ... ) body ;
+    TYPED:: word ( a b: class ... -- x: class y ... ) body ;
+    MACRO: word ( inputs... -- ) definition... ) ;
+    MACRO:: word ( vars... -- outputs... ) definition... ) ;
+    M: class generic (definition) ... ;
+    M:: class generic ( vars... -- outputs... ) body... ;
+    GENERIC: word ( stack -- effect )
+    HOOK: word variable ( stack -- effect )
+    GENERIC#: word 1 ( stack -- effect )
+    MATH: + ( x y -- z ) foldable flushable
+    SLOT: name
+    C: <foo> foo
+
+PRIVATE>
+
 ! Alien
 
     LIBRARY: name