Implement SAVE-INPUT and RESTORE-INPUT

[pforth] / fth / loadp4th.fth

diff --git a/fth/loadp4th.fth b/fth/loadp4th.fth
index 2e9c2ad..0ce27dc 100644 (file)
--- a/fth/loadp4th.fth
+++ b/fth/loadp4th.fth
@@ -24,6 +24,7 @@ include? {       locals.fth
 include? fm/mod  math.fth
 include? task-misc2.fth misc2.fth
 include? [if]    condcomp.fth
 include? fm/mod  math.fth
 include? task-misc2.fth misc2.fth
 include? [if]    condcomp.fth

+include? save-input save-input.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*