Implement READ-LINE and WRITE-LINE

[pforth] / fth / loadp4th.fth

diff --git a/fth/loadp4th.fth b/fth/loadp4th.fth
index 0ce27dc..dd835ce 100644 (file)
--- a/fth/loadp4th.fth
+++ b/fth/loadp4th.fth
@@ -25,6 +25,7 @@ include? fm/mod  math.fth
 include? task-misc2.fth misc2.fth
 include? [if]    condcomp.fth
 include? save-input save-input.fth
 include? task-misc2.fth misc2.fth
 include? [if]    condcomp.fth
 include? save-input save-input.fth

+include? read-line  file.fth

 
 \ load floating point support if basic support is in kernel
 exists? F*
 
 \ load floating point support if basic support is in kernel
 exists? F*