--- gforth/test/other.fs	1997/10/24 17:13:31	1.5
+++ gforth/test/other.fs	1997/10/27 18:25:23	1.6
@@ -99,6 +99,23 @@ name b 2dup name abc search throw d<> th
     r> abort" ONLY sets current" ;
 test-only
 
+\ create-interpret/compile
+
+: constant ( n "name" -- )
+    create-interpret/compile
+    ,
+interpretation>
+    @
+<interpretation
+compilation>
+    @ postpone literal
+<compilation ;
+
+5 constant five
+five 5 <> throw
+: five' five ;
+five' 5 <> throw
+
 \ comments across several lines
 
 ( fjklfjlas;d