From ff043bad6837280159022a585a3a4f27dd2a0071 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Tue, 1 May 2018 16:02:32 +0100
Subject: [PATCH] Use the definition of NULL from build.cmd.

Confusion's version said it "probably isn't legal in real mdl".
It isn't!
---
 src/cfs/cload.2 | 2 ++
 src/cfs/ctell.2 | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cfs/cload.2 b/src/cfs/cload.2
index e905b737..4d830d1b 100644
--- a/src/cfs/cload.2
+++ b/src/cfs/cload.2
@@ -24,6 +24,8 @@
 ; "only use mark-sweep GC"
 ; <GC 8192 <> <CHTYPE <MIN> FIX>>
 
+<SETG NULL!- <INSERT <STRING <ASCII 127>> <ROOT>>>
+
 <VFLOAD "prim">
 <VFLOAD "defs">
 <VFLOAD "makstr">
diff --git a/src/cfs/ctell.2 b/src/cfs/ctell.2
index 6aa88825..cb8d43dd 100644
--- a/src/cfs/ctell.2
+++ b/src/cfs/ctell.2
@@ -134,5 +134,3 @@ are never both set (no lowercase or a few other symbols)"
          >
 >
 
-<AND <NOT <GASSIGNED? NULL>> <SETG NULL <INSERT <ATOM ""> <ROOT>>>> ;",NULL is an atom with a name containing a single rubout in real MDL.  Here it's a totally empty atom (which probably isn't legal in real mdl) "
-""