From: Adam Sampson <ats@offog.org>
Date: Mon, 16 Apr 2018 10:51:11 +0000 (+0100)
Subject: Fix a couple of bad EXPUNGEs.
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;ds=inline;h=dbc9bcc41b4ee65e056e9ca49073c4281204d621;p=pdp10-muddle.git

Fix a couple of bad EXPUNGEs.

I don't think we can easily get rid of all of these...
---

diff --git a/<mdl.int>/muddle.347 b/<mdl.int>/muddle.347
index cb732d5..a7504a5 100644
--- a/<mdl.int>/muddle.347
+++ b/<mdl.int>/muddle.347
@@ -460,7 +460,7 @@ TERMIN
 ]
 
 
-RMT [EXPUNGE GENERAL,NUMSTA
+RMT [EXPUNGE GENERAL,NUMSAT
 ]
 
 DEFINE XPUNGR A
@@ -578,7 +578,7 @@ TYPMAK SOFFS,[[OFFS,OFFSET]]
 IFN MAIN,[RMT [LOC SAVE
 	]
 	]
-IF2,EXPUNGE TYPMAK,DOTYPS
+IF2,EXPUNGE TYPMAK
 
 RMT [EQUALS XP EXPUNGE
 IF2,XP STMPLT