From f1cd9da9f1ebe46605239d4a22ab5ad6c3609fcd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 3 Oct 1997 07:26:54 +0000 Subject: [PATCH] Fix typo. --- v7/src/runtime/string.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm index 0f867f72a..d315a3d7e 100644 --- a/v7/src/runtime/string.scm +++ b/v7/src/runtime/string.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: string.scm,v 14.15 1997/10/02 19:16:40 adams Exp $ +$Id: string.scm,v 14.16 1997/10/03 07:26:54 cph Exp $ Copyright (c) 1988-1997 Massachusetts Institute of Technology @@ -623,7 +623,7 @@ MIT in each case. |# (cond ((not (string? object1)) (error:wrong-type-argument object1 "string" procedure)) ((not (string? object2)) - (error:wrong-type-argument object1 "string" procedure)))) + (error:wrong-type-argument object2 "string" procedure)))) (define-integrable (guarantee-index/string object procedure) (if (not (index-fixnum? object)) -- 2.25.1