From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 8 Jun 2020 18:20:44 +0000 (-0700)
Subject: misc: add private definitions to syntax-test file.
X-Git-Tag: 0.99~3173
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=17e862b8017e3ccd8ed1c1fc8fb17019343b9657

misc: add private definitions to syntax-test file.
---

diff --git a/misc/syntax-test.factor b/misc/syntax-test.factor
index ea5d915e44..ca39b3ad38 100644
--- 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