From f7f295ac2f8e32f3019756ef24a65e417f9d96c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jul 2004 15:23:56 +0000
Subject: [PATCH] Fix typo in previous change.

---
 v7/src/compiler/back/lapgn2.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/back/lapgn2.scm b/v7/src/compiler/back/lapgn2.scm
index 626d62c9a..879ab126c 100644
--- a/v7/src/compiler/back/lapgn2.scm
+++ b/v7/src/compiler/back/lapgn2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgn2.scm,v 1.24 2004/07/01 01:19:57 cph Exp $
+$Id: lapgn2.scm,v 1.25 2004/07/01 15:23:56 cph Exp $
 
 Copyright 1987,1988,1989,1990,1991,1993 Massachusetts Institute of Technology
 Copyright 1994,2004 Massachusetts Institute of Technology
@@ -167,7 +167,7 @@ USA.
 
 (define (guarantee-registers-compatible r1 r2)
   (if (not (registers-compatible? r1 r2))
-      (error "Incompatible register types:" source target)))
+      (error "Incompatible register types:" r1 r2)))
 
 (define (registers-compatible? r1 r2)
   (register-types-compatible? (register-type r1) (register-type r2)))
-- 
2.25.1