From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 15 Mar 1991 23:49:11 +0000 (+0000)
Subject: Rewrite `invoke-variable-assignment-daemons!' to improve performance.
X-Git-Tag: 20090517-FFI~10845
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b3d398c6dc5730226ef4309e78ee1e14cfd0c8c9;p=mit-scheme.git

Rewrite `invoke-variable-assignment-daemons!' to improve performance.
---

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))