From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 Dec 1993 02:47:39 +0000 (+0000)
Subject: Fix think-o.
X-Git-Tag: 20090517-FFI~7362
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f28f9dc1ab32cf772900508a6d95aef4d4789a96;p=mit-scheme.git

Fix think-o.
---

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index 9be9295a4..b78d37506 100644
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: error.scm,v 14.43 1993/12/17 02:34:15 cph Exp $
+$Id: error.scm,v 14.44 1993/12/17 02:47:39 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -290,7 +290,8 @@ MIT in each case. |#
 
 (define-structure (restart
 		   (conc-name %restart/)
-		   (constructor %make-restart (name reporter effector))
+		   (constructor %make-restart
+				(name reporter effector interactor))
 		   (print-procedure
 		    (standard-unparser-method 'RESTART
 		      (lambda (restart port)
@@ -308,15 +309,15 @@ MIT in each case. |#
 (define (with-restart name reporter effector interactor thunk)
   (if name (guarantee-symbol name 'WITH-RESTART))
   (if (not (or (string? reporter) (procedure-of-arity? reporter 1)))
-      (error:wrong-type-argument reporter "restart reporter" 'WITH-RESTART))
+      (error:wrong-type-argument reporter "reporter" 'WITH-RESTART))
   (if (not (procedure? effector))
-      (error:wrong-type-argument effector "restart effector" 'WITH-RESTART))
+      (error:wrong-type-argument effector "effector" 'WITH-RESTART))
   (if (not (or (not interactor) (procedure? interactor)))
-      (error:wrong-type-argument interactor "restart interactor"
-				 'WITH-RESTART))
-  (let ((restart (%make-restart name reporter effector interactor)))
-    (fluid-let ((*bound-restarts* (cons restart *bound-restarts*)))
-      (thunk))))
+      (error:wrong-type-argument interactor "interactor" 'WITH-RESTART))
+  (fluid-let ((*bound-restarts*
+	       (cons (%make-restart name reporter effector interactor)
+		     *bound-restarts*)))
+    (thunk)))
 
 (define (with-simple-restart name reporter thunk)
   (call-with-current-continuation