Dropped weird compat thing that wasn't working.

ueforth/common/all_tests.fs

@@ -21,5 +21,4 @@ include common/locals_tests.fs
 include common/doloop_tests.fs
 include common/conditionals_tests.fs
 include common/float_tests.fs
-include common/filetools_tests.fs
 run-tests

ueforth/common/filetools.fs

@@ -20,17 +20,12 @@
 
 internals definitions
 ( Leave some room for growth of starting system. )
-15000 constant compat-level
 0 value saving-base
 : park-heap ( -- a ) saving-base ;
 : park-forth ( -- a ) saving-base cell+ ;
 : 'cold ( -- a ) saving-base 2 cells + ;
-: real-heap-start ( -- a ) sp0 'stack-cells @ cells + ;
 : setup-saving-base
-  here real-heap-start - compat-level cells max
+  here to saving-base  16 cells allot  0 'cold ! ;
-  real-heap-start + to saving-base
-  saving-base 16 cells + 'heap !
-  0 'cold ! ;
 
 : save-name
   'heap @ park-heap !

ueforth/common/filetools_tests.fs

@@ -1,20 +0,0 @@
-\ Copyright 2021 Bradley D. Nelson
-\
-\ Licensed under the Apache License, Version 2.0 (the "License");
-\ you may not use this file except in compliance with the License.
-\ You may obtain a copy of the License at
-\
-\     http://www.apache.org/licenses/LICENSE-2.0
-\
-\ Unless required by applicable law or agreed to in writing, software
-\ distributed under the License is distributed on an "AS IS" BASIS,
-\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-\ See the License for the specific language governing permissions and
-\ limitations under the License.
-
-( Test if we've exhaused compat threshold )
-internals
-: test-compat-level-exhausted
-  saving-base real-heap-start - compat-level cells =assert
-;
-forth