From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Aug 1989 14:43:20 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~11857
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69087ede9b7a4bada76d24b20f502f9cec2febcd;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 033e838c8..9326fb816 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.132 1989/08/09 13:16:48 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.133 1989/08/09 14:43:20 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -307,7 +307,8 @@ The buffer is guaranteed to be deselected at that time."
     (if (not (null? thunks))
 	(begin
 	  ((car thunks))
-	  (loop))))  (vector-set! buffer buffer-index:initializations '())
+	  (loop (cdr thunks)))))
+  (vector-set! buffer buffer-index:initializations '())
   unspecific)
 
 ;;;; Local Bindings