From aa9d50ff5afc3b19ef0bdd349bd8e14a8f3bb558 Mon Sep 17 00:00:00 2001
From: sater <none@none>
Date: Thu, 12 Jul 1984 09:29:49 +0000
Subject: [PATCH] The sequence:   lin 100   cal $foo   lin 101 used to have
 it's second lin lni'ed. This is obviously wrong. A check is now made for
 procedure calls.

---
 util/opt/putline.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/util/opt/putline.c b/util/opt/putline.c
index cc152bca1..afa49f763 100644
--- a/util/opt/putline.c
+++ b/util/opt/putline.c
@@ -131,6 +131,8 @@ putlines(lnp) register line_p lnp; {
 			curlin = -2;
 			break;
 		default:
+			if ((em_flag[instr-sp_fmnem]&EM_FLO)==FLO_P)
+				curlin = -2;
 			outinst(instr);
 		}
 processoperand:
-- 
2.34.1