From c84d192a1758dd9c41edeb3c33db40b7eb9b19cd Mon Sep 17 00:00:00 2001
From: Nick Downing <nick@ndcode.org>
Date: Tue, 9 Jan 2024 20:57:58 +1100
Subject: [PATCH] Fix a bug in prepro.bcpl with NLpending (bogus argument) vs
 NLPending (global)

---
 bss/prepro.bss | 10 +++++-----
 fap/prepro.fap | 10 +++++-----
 prepro.bcpl    |  6 +++---
 3 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/bss/prepro.bss b/bss/prepro.bss
index 5d33f53..e8dd867 100644
--- a/bss/prepro.bss
+++ b/bss/prepro.bss
@@ -16,10 +16,10 @@
  040000000240 060100076761 050000076761 040200076762
  000000000000 000000000000 000000000000 000000000000
 
- 200727000024 000000000000 222222040201 110204444444
- 456444111141 111001102074 444544476773 171511177771
- 151111177771 151111177771 173711111111 155111177113
- 171511122222 042000400001 002000000104 060400400001
+ 200727000024 000000000000 222222040201 111102222222
+ 632222044474 454440220441 155111177762 262622276763
+ 272222276763 262222276762 273722322222 266322277222
+ 262622304444 412000400001 002000000104 060400400001
  044100400002 060400077000 050200076775 010000000076
- 050000400004 010000000061 050000400003 040200000237
+ 050000076776 010000000061 050000400003 040200000237
  010000000052 412000000060 044100077000 060400077001
diff --git a/fap/prepro.fap b/fap/prepro.fap
index 28f977f..7b97a7a 100644
--- a/fap/prepro.fap
+++ b/fap/prepro.fap
@@ -81,7 +81,7 @@ L2
 # LAB L7
 
 L7
-# SAVE 5
+# SAVE 4
 	STI	1,4
 # LP 2
 # SG 96
@@ -93,9 +93,9 @@ L7
 	CLS	93+G
 # JF L8
 	TZE	L8
-# LP 4
+# LG 94
 # JF L9
-	CLA	4,4
+	CLA	94+G
 	TZE	L9
 # LP 3
 # LN 10
@@ -162,8 +162,8 @@ L10
 
 L8
 # FALSE
-# SP 4
-	STZ	4,4
+# SG 94
+	STZ	94+G
 # LP 3
 # LN 10
 # REM
diff --git a/prepro.bcpl b/prepro.bcpl
index 0a44d21..395c56e 100644
--- a/prepro.bcpl
+++ b/prepro.bcpl
@@ -9,17 +9,17 @@ let Rch() be
           if LineP gr LineT do LineP := LineT
           LineV*(LineP) := Ch  $)
 
-and PPitem(Item, Class, NLpending) be
+and PPitem(Item, Class) be
        $( Symb := Item
           if ST ne 0 do
-                    test NLpending
+                    test NLPending
                         then if Class ge 10 do
                                      $( Nsymb, B := Symb, true
                                         Symb := SEMICOLON  $)
                           or if ST=1 & Class ge 20 do
                                      $( Nsymb, B := Symb, true
                                         Symb := DO  $)
-          NLpending, ST := false, Class rem 10   $)
+          NLPending, ST := false, Class rem 10   $)
 
 and Kind(Ch) = valof
     $( switchon Ch into
-- 
2.34.1