From b12655e74e35177f4942b2181193524ad4b189fa Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 17 Dec 1993 02:34:15 +0000 Subject: [PATCH] Fix think-o. --- v7/src/runtime/error.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm index 7cbc4ccd9..9be9295a4 100644 --- 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))) -- 2.25.1