From 140f76216c2a5aed7b3017458e3b86df16d8af11 Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Mon, 1 Dec 2025 16:06:07 -0800
Subject: [PATCH] Really revert BACKGROUND-YIELD to CAUSEINTERRUPT until Maiko
 fixed

---
 lispusers/BACKGROUND-YIELD      |  15 +++++++--------
 lispusers/BACKGROUND-YIELD.LCOM | Bin 1239 -> 1215 bytes
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/lispusers/BACKGROUND-YIELD b/lispusers/BACKGROUND-YIELD
index aa634972..00d4ded4 100644
--- a/lispusers/BACKGROUND-YIELD
+++ b/lispusers/BACKGROUND-YIELD
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Nov-2025 11:52:07" {DSK}<Users>larry>il>MEDLEY>LISPUSERS>BACKGROUND-YIELD.;2
 1882   
+
(FILECREATED "28-Jul-2023 09:49:24" {DSK}<home>larry>il>medley>lispusers>BACKGROUND-YIELD.;2
 1770   
 
       :EDIT-BY "lmm"
 
       :CHANGES-TO (FNS BACKGROUND-YIELD)
 
-      :PREVIOUS-DATE "28-Jul-2023 09:49:24" {DSK}<Users>larry>il>MEDLEY>LISPUSERS>BACKGROUND-YIELD.;1
+      :PREVIOUS-DATE "14-Nov-2021 22:05:58" {DSK}<home>larry>il>medley>lispusers>BACKGROUND-YIELD.;1
 )
 
 
@@ -26,14 +26,13 @@
 (DEFINEQ
 
 (BACKGROUND-YIELD

-  [LAMBDA NIL
                                                (* ; "Edited  9-Nov-2025 11:50 by lmm")


-                                                             (* ; "Edited 28-Jul-2023 09:11 by lmm")


+  [LAMBDA NIL
                                                (* ; "Edited 28-Jul-2023 09:11 by lmm")


                                                            (* ; "Edited 20-Sep-2021 11:37 by larry")

     (LET ((\BACKGROUND T))
-         (DECLARE
 (SPECVARS \BACKGROUND)
-                (GLOBALVARS BACKGROUND-YIELD))
+         (DECLARE
 (SPECVARS \BACKGROUND))
          (IF
 (FIXP BACKGROUND-YIELD)
-             THEN
 (SUBRCALL YIELD BACKGROUND-YIELD])
+             THEN
 (SUBRCALL YIELD BACKGROUND-YIELD)
+                  (SUBRCALL CAUSE-INTERRUPT])
 
 (INIT-YIELD

   [LAMBDA (ONP)
                                        (* ; "Edited 19-Sep-2021 13:32 by larry")

@@ -52,5 +51,5 @@
 
 (RPAQQ BACKGROUND-YIELD
 833333)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (808 1767 (BACKGROUND-YIELD 818 . 1383) (INIT-YIELD 1385 . 1765)))))
+  (FILEMAP (NIL (806 1655 (BACKGROUND-YIELD 816 . 1271) (INIT-YIELD 1273 . 1653)))))
 STOP
diff --git a/lispusers/BACKGROUND-YIELD.LCOM b/lispusers/BACKGROUND-YIELD.LCOM
index c44c58fca41aea5dc4fafa0b867de795b1733bec..3e46012bd7930d3cffd5490382a1dd3abd3e84e5 100644
GIT binary patch
delta 429
zcmcc4xu0`FxQLO3u2*S}u91O}v4Vl6m5HU5k;%kt$@+}^+*G@q#G;}~yUZNB+|-nu
z)JnUY%;JL5;?$yIJ10kHZ}%YoP(K&lNKaQE7d>kuO$8+*BNW37O|1+Jl@yYSQj_y@
z3o>(3QxuXj67$kii&d?-6wr-O$jnnvatrnGQ2-iK4|kNFo}Q9IN@596GdA;0l{C3D
z+&q0;or7E*LtI^eim>=dNuk;$*t^z-XkYQcy`^AiZf-Dn5~GW?p^2_vei<mJ41rFx
zGBC9=wNO&vBF5y&LQK|X3T_I97{1n2U=U(tWMIe?WMl|5R@lNBSbK@Fb`paCgP*4l
M7Z7ir!DP<_08q?%ssI20

delta 439
zcmdnbd7X1YxQK$Ku3vtcu91O}se+-Qm8p@Hf%(L2$@<XZ)S_a$oW!D{O1sP)J6~59
zAJ<4bAJ5=`&|ue~U^^#AXK(i)|4=^{-AGSY9~V7qBTWS*1rsFG%&ZKJtc*>R6q1Tk
zlk;;6GILT>6u6Qz67$kii&d=@(2Y>Y%u`Tu3<wBTP%x=Sn4_nsr=*aQSOV0H#e5TU
zB~303H%}i|=O9<d5LXwVA}n4~QmA$b_O7)d)>{Hd{!%csurQiDfzidr$U@hvGzSz|
z#tH_ORwkBKMnLaz5oPpbekN-*O$7#VMg|6kOhHD51R%{|tgwX(%&5J@D8S(7>BFUA
UXg+x%i?9$z@MvysV6tZd0RAL&e*gdg