Fix think-o.

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index 7cbc4ccd9c9a79c743a72e890719fb2c1ccf067d..9be9295a4d18a9c1e20c24ecefc2d3464443e39e 100644 (file)
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: error.scm,v 14.42 1993/12/17 02:10:32 cph Exp $
+$Id: error.scm,v 14.43 1993/12/17 02:34:15 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -311,7 +311,7 @@ MIT in each case. |#
       (error:wrong-type-argument reporter "restart reporter" 'WITH-RESTART))
   (if (not (procedure? effector))
       (error:wrong-type-argument effector "restart effector" 'WITH-RESTART))
-  (if (not (procedure? interactor))
+  (if (not (or (not interactor) (procedure? interactor)))
       (error:wrong-type-argument interactor "restart interactor"
                                 'WITH-RESTART))
   (let ((restart (%make-restart name reporter effector interactor)))