From 0875f20828b5ba092b95a9855e62b638997bdf7f Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sun, 9 Jan 2022 21:24:36 -0800
Subject: [PATCH] Dropped weird compat thing that wasn't working.

---
 ueforth/common/all_tests.fs       |  1 -
 ueforth/common/filetools.fs       |  7 +------
 ueforth/common/filetools_tests.fs | 20 --------------------
 3 files changed, 1 insertion(+), 27 deletions(-)
 delete mode 100644 ueforth/common/filetools_tests.fs

diff --git a/ueforth/common/all_tests.fs b/ueforth/common/all_tests.fs
index a1f9ad8..e808914 100644
--- a/ueforth/common/all_tests.fs
+++ b/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
diff --git a/ueforth/common/filetools.fs b/ueforth/common/filetools.fs
index 1abaabc..53e3b11 100644
--- a/ueforth/common/filetools.fs
+++ b/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
-  real-heap-start + to saving-base
-  saving-base 16 cells + 'heap !
-  0 'cold ! ;
+  here to saving-base  16 cells allot  0 'cold ! ;
 
 : save-name
   'heap @ park-heap !
diff --git a/ueforth/common/filetools_tests.fs b/ueforth/common/filetools_tests.fs
deleted file mode 100644
index 43c1e19..0000000
--- a/ueforth/common/filetools_tests.fs
+++ /dev/null
@@ -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