From b3d398c6dc5730226ef4309e78ee1e14cfd0c8c9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 15 Mar 1991 23:49:11 +0000
Subject: [PATCH] Rewrite `invoke-variable-assignment-daemons!' to improve
 performance.

---
 v7/src/edwin/comman.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index d5d29dd72..da28c0966 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comman.scm,v 1.64 1991/02/15 18:12:40 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comman.scm,v 1.65 1991/03/15 23:49:11 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -157,8 +157,9 @@
 		     (cons daemon daemons)))))
 
 (define (invoke-variable-assignment-daemons! variable)
-  (for-each (lambda (daemon) (daemon variable))
-	    (variable-assignment-daemons variable)))
+  (do ((daemons (variable-assignment-daemons variable) (cdr daemons)))
+      ((null? daemons))
+    ((car daemons) variable)))
 
 (define editor-variables (make-string-table 50))
 
-- 
2.25.1