From 2d34e6f8394582b23f70d027ac7c0f3e8d2e97f4 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
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 c91d60675..9a818c654 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();
 }