From 854383f06e13fe08890fedf2e2487fea7aad4795 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 8 Feb 2002 03:01:54 +0000
Subject: [PATCH] Fix error message in PARSE-MIT-LAMBDA-LIST.

---
 v7/src/runtime/syntax-check.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/runtime/syntax-check.scm b/v7/src/runtime/syntax-check.scm
index c4bfb5911..8b8d6fffa 100644
--- a/v7/src/runtime/syntax-check.scm
+++ b/v7/src/runtime/syntax-check.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: syntax-check.scm,v 14.1 2002/02/03 03:38:57 cph Exp $
+;;; $Id: syntax-check.scm,v 14.2 2002/02/08 03:01:54 cph Exp $
 ;;;
-;;; Copyright (c) 1989-1991, 2001 Massachusetts Institute of Technology
+;;; Copyright (c) 1989-1991, 2001, 2002 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -190,10 +190,10 @@
 	      (cdr parameters)))
 	    ((null? parameters))
 	  (if (memq (car parameters) (cdr parameters))
-	      (syntax-error "lambda list has duplicate parameter:"
-			    (car parameters)
-			    (error-irritant/noise " in")
-			    lambda-list)))
+	      (error "lambda list has duplicate parameter:"
+		     (car parameters)
+		     (error-irritant/noise " in")
+		     lambda-list)))
 	(values required optional rest)))
 
     (define (bad-lambda-list pattern)
-- 
2.25.1