From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Jan 2003 01:54:32 +0000 (+0000)
Subject: Fix thinko in previous change.
X-Git-Tag: 20090517-FFI~2080
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fcd1ac955e307ceba634ad284a8a82f718dd98e2;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index f4622cad8..aac5fdad8 100644
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: arith.scm,v 1.53 2003/01/01 05:38:22 cph Exp $
+$Id: arith.scm,v 1.54 2003/01/02 01:54:32 cph Exp $
 
 Copyright (c) 1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright (c) 1994,1995,1996,1997,1999 Massachusetts Institute of Technology
@@ -1797,10 +1797,10 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
     ((define-guarantee
        (sc-macro-transformer
 	(lambda (form environment)
-	  `(DEFINE (,(symbol-append 'GUARANTEE- (car form)) OBJECT OPERATOR)
-	     (IF (NOT (,(symbol-append (car form) '?) OBJECT))
+	  `(DEFINE (,(symbol-append 'GUARANTEE- (cadr form)) OBJECT OPERATOR)
+	     (IF (NOT (,(symbol-append (cadr form) '?) OBJECT))
 		 (ERROR:WRONG-TYPE-ARGUMENT OBJECT
-					    ,(close-syntax (cadr form)
+					    ,(close-syntax (caddr form)
 							   environment)
 					    OPERATOR))
 	     OBJECT)))))