From 7471081794a3b51cde6430a3829a535bf9198d47 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Mon, 23 Feb 1987 09:18:41 +0000
Subject: [PATCH] Delete temporary

---
 lang/basic/src.old/bem.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lang/basic/src.old/bem.c b/lang/basic/src.old/bem.c
index c91d6067..9a818c65 100644
--- a/lang/basic/src.old/bem.c
+++ b/lang/basic/src.old/bem.c
@@ -39,7 +39,10 @@ char **argv;
 	/* compile source programs */
 	compileprogram(program);
 	linewarnings();
-	if( errorcnt) exit(-1);
+	if( errorcnt) {
+		unlink(tmpfname);
+		exit(-1);
+	}
 	/* process em object files */
 	simpleprogram();
 }