From 1c9144a853bb6df60e03478c3f32e8f6bac1c77f Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 10 May 1995 03:33:08 +0000
Subject: [PATCH] Changed some LAMBDAs in the arity-dispatched operators to
 NAMED-LAMBDAs for PP clarity.

---
 v7/src/runtime/arith.scm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index 33795b161..733598efe 100644
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: arith.scm,v 1.31 1995/01/13 22:17:16 adams Exp $
+$Id: arith.scm,v 1.32 1995/05/10 03:33:08 adams Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -138,12 +138,13 @@ MIT in each case. |#
 		    SELF		; ignored
 		    (REDUCE ,generic-binary ,identity ZS))
 		  (VECTOR (FIXED-OBJECTS-ITEM 'arity-dispatcher-tag)
-			  (LAMBDA () ,identity)
-			  (LAMBDA (Z)
+			  (NAMED-LAMBDA (,(symbol-append 'NULLARY- name))
+			    ,identity)
+			  (NAMED-LAMBDA (,(symbol-append 'UNARY- name) Z)
 			    (IF (NOT (COMPLEX:COMPLEX? Z))
 				(ERROR:WRONG-TYPE-ARGUMENT Z FALSE ',name))
 			    Z)
-			  (LAMBDA (Z1 Z2)
+			  (NAMED-LAMBDA (,(symbol-append 'BINARY- name) Z1 Z2)
 			    ((UCODE-PRIMITIVE ,primitive-binary) Z1 Z2))))))))
     (commutative + complex:+ 0 &+)
     (commutative * complex:* 1 &*))
@@ -162,7 +163,7 @@ MIT in each case. |#
 		  (VECTOR (FIXED-OBJECTS-ITEM 'arity-dispatcher-tag)
 			  #F
 			  ,generic-unary
-			  (LAMBDA (Z1 Z2)
+			  (NAMED-LAMBDA (,(symbol-append 'BINARY- name) Z1 Z2)
 			    ((UCODE-PRIMITIVE ,primitive-binary) Z1 Z2))))))))
     (non-commutative -  complex:negate  complex:-  complex:+  0  &-)
     (non-commutative /  complex:invert  complex:/  complex:*  1  &/))
@@ -177,15 +178,15 @@ MIT in each case. |#
 		    (REDUCE-COMPARATOR ,generic-binary ZS ',name))
 		  (VECTOR 
 		   (FIXED-OBJECTS-ITEM 'arity-dispatcher-tag)
-		   (LAMBDA () #T)
-		   (LAMBDA (Z)
+		   (NAMED-LAMBDA (,(symbol-append 'NULLARY- name)) #T)
+		   (NAMED-LAMBDA (,(symbol-append 'UNARY- name) Z)
 		     (IF (NOT (,correct-type? Z))
 			 (ERROR:WRONG-TYPE-ARGUMENT Z FALSE ',name))
 		     #T)
 		   ,(if negated?
-			`(LAMBDA (Z1 Z2)
+			`(NAMED-LAMBDA (,(symbol-append 'BINARY- name) Z1 Z2)
 			   (NOT ((UCODE-PRIMITIVE ,primitive-binary) Z1 Z2)))
-			`(LAMBDA (Z1 Z2)
+			`(NAMED-LAMBDA (,(symbol-append 'BINARY- name) Z1 Z2)
 			   ((UCODE-PRIMITIVE ,primitive-binary) Z1 Z2)))))))))
 	  
     (relational  =  complex:=  &=  complex:complex? #F)
@@ -205,7 +206,7 @@ MIT in each case. |#
 		  (VECTOR 
 		   (FIXED-OBJECTS-ITEM 'arity-dispatcher-tag)
 		   #F
-		   (LAMBDA (X)
+		   (NAMED-LAMBDA (,(symbol-append 'UNARY- name) X)
 		     (IF (NOT (COMPLEX:REAL? X))
 			 (ERROR:WRONG-TYPE-ARGUMENT X FALSE ',name))
 		     X)
-- 
2.25.1