Implement REQUIRE (Forth 2012)

[pforth] / fth / misc2.fth

diff --git a/fth/misc2.fth b/fth/misc2.fth
index 53c9197..3480449 100644 (file)
--- a/fth/misc2.fth
+++ b/fth/misc2.fth
@@ -2,7 +2,7 @@
 \ Utilities for PForth extracted from HMSL
 \
 \ Author: Phil Burk
 \ Utilities for PForth extracted from HMSL
 \
 \ Author: Phil Burk

-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom

 \
 \ The pForth software code is dedicated to the public domain,
 \ and any third party may reproduce, distribute and modify
 \
 \ The pForth software code is dedicated to the public domain,
 \ and any third party may reproduce, distribute and modify


@@ -261,6 +261,11 @@ private{
     s" MAX-UD"      max-u max-u 2env= if exit then
     s" RETURN-STACK-CELLS"   512 env= if exit then \ DEFAULT_RETURN_DEPTH
     s" STACK-CELLS"          512 env= if exit then \ DEFAULT_USER_DEPTH
     s" MAX-UD"      max-u max-u 2env= if exit then
     s" RETURN-STACK-CELLS"   512 env= if exit then \ DEFAULT_RETURN_DEPTH
     s" STACK-CELLS"          512 env= if exit then \ DEFAULT_USER_DEPTH

+    \ FIXME: maybe define those:
+    \ s" FLOATING-STACK"
+    \ s" MAX-FLOAT"
+    \ s" #LOCALS"
+    \ s" WORDLISTS"

     2drop false
 ;
 
     2drop false
 ;