X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=fth%2Ft_corex.fth;fp=fth%2Ft_corex.fth;h=c37252ac4b5673a5b6a613791202c52750855f1c;hb=b4ed9d489f7401ee0cd8a6d6e8ce9d97f0dc7833;hp=f2b3f197ca0967b1c8cca5dd12642c3fef0e36c6;hpb=36a42cf251672481da028bb30eea1b16779b5f05;p=debian%2Fpforth

diff --git a/fth/t_corex.fth b/fth/t_corex.fth
index f2b3f19..c37252a 100644
--- a/fth/t_corex.fth
+++ b/fth/t_corex.fth
@@ -330,5 +330,19 @@ T{ s" unknown-query-string" ENVIRONMENT? }T{ FALSE }T
 T{ s" MAX-CHAR" ENVIRONMENT? }T{ 255 TRUE }T
 T{ s" ADDRESS-UNITS-BITS" ENVIRONMENT? }T{ 8 TRUE }T
 
+\  ----------------------------------------------------- PROGRAMMING
+
+T{ exists? words }T{ true }T  \ high level
+T{ exists? swap }T{ true }T   \ in kernel
+T{ exists? lkajsdlakjs }T{ false }T
+
+T{ [defined] if }T{ true }T   \ high level
+T{ [defined] dup }T{ true }T  \ in kernel
+T{ [defined] k23jh42 }T{ false }T
+
+T{ [undefined] if }T{ false }T  \ high level
+T{ [undefined] dup }T{ false }T \ in kernel
+T{ [undefined] k23jh42 }T{ true }T
+
 }TEST