From 1cb66df8689ba834ce4c430fc59719ab48a9ed1d Mon Sep 17 00:00:00 2001
From: Andrew Alderwick <andrew@alderwick.co.uk>
Date: Mon, 2 Jan 2023 15:07:34 +0000
Subject: [PATCH] (asma) Disable recursion tests that no longer function.

---
 etc/asma-test.sh          | 16 ++++++++--------
 projects/library/asma.tal |  7 -------
 2 files changed, 8 insertions(+), 15 deletions(-)

diff --git a/etc/asma-test.sh b/etc/asma-test.sh
index 48aae5c..a530ae1 100755
--- a/etc/asma-test.sh
+++ b/etc/asma-test.sh
@@ -86,14 +86,14 @@ expect_failure 'Memory overwrite: SUB' <<'EOD'
 |2000 ADD
 |1000 SUB
 EOD
-expect_failure 'Recursion level too deep:' <<'EOD'
-%me { you }
-%you { me }
-|1000 me
-EOD
-expect_failure 'Recursion level too deep: ~asma-test/in.tal' <<'EOD'
-~asma-test/in.tal
-EOD
+# expect_failure 'Recursion level too deep:' <<'EOD'
+# %me { you }
+# %you { me }
+# |1000 me
+# EOD
+# expect_failure 'Recursion level too deep: ~asma-test/in.tal' <<'EOD'
+# ~asma-test/in.tal
+# EOD
 expect_failure 'Label not found: ;blah' <<'EOD'
 |1000 ;blah
 EOD
diff --git a/projects/library/asma.tal b/projects/library/asma.tal
index b1bae87..69f816d 100644
--- a/projects/library/asma.tal
+++ b/projects/library/asma.tal
@@ -833,7 +833,6 @@
 	( hex short   ) ,asma-short-helper/raw JMP
 
 	&not-hex
-	.System/rst DEI #e0 GTH ,&too-deep JCN
 	;asma-trees/macros ;asma-traverse-tree JSR2 ,&not-macro JCN
 
 	&macro-loop
@@ -855,12 +854,7 @@
 	;asma-msg-token ;asma/error STA2
 	JMP2r
 
-	&too-deep
-	;asma-msg-too-deep ;asma/error STA2
-	JMP2r
-
 @asma-include
-	.System/rst DEI #e0 GTH ,asma-normal-body/too-deep JCN
 	;heap LDA2
 		;asma/token LDA2 ;append-heap-string JSR2
 		;asma-assemble-file-pass JSR2
@@ -876,7 +870,6 @@
 @asma-msg-token     "Unrecognised 20 "token 00
 @asma-msg-macro     "Macro 20 "already 20 "exists 00
 @asma-msg-rewound   "Memory 20 "overwrite 00
-@asma-msg-too-deep  "Recursion 20 "level 20 "too 20 "deep 00
 @asma-msg-redefined "Label 20 "redefined 00
 
 ( trees )