Simplify

[pforth] / fth / loadp4th.fth

diff --git a/fth/loadp4th.fth b/fth/loadp4th.fth
index 3dcb869..0973fc9 100644 (file)
--- a/fth/loadp4th.fth
+++ b/fth/loadp4th.fth
@@ -26,7 +26,6 @@ include? task-misc2.fth misc2.fth
 include? [if]    condcomp.fth
 include? save-input save-input.fth
 include? read-line  file.fth
 include? [if]    condcomp.fth
 include? save-input save-input.fth
 include? read-line  file.fth

-include? file?      filefind.fth

 include? require    require.fth
 
 \ load floating point support if basic support is in kernel
 include? require    require.fth
 
 \ load floating point support if basic support is in kernel


@@ -39,6 +38,7 @@ exists? F*
 include? task-member.fth   member.fth
 include? :struct c_struct.fth
 include? smif{   smart_if.fth
 include? task-member.fth   member.fth
 include? :struct c_struct.fth
 include? smif{   smart_if.fth

+include? file?   filefind.fth

 include? see     see.fth
 include? words.like wordslik.fth
 include? trace   trace.fth
 include? see     see.fth
 include? words.like wordslik.fth
 include? trace   trace.fth