From 119a69449525d709a41eaf39be4c4b267367c0ec Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 23 Jul 1996 15:17:13 +0000
Subject: [PATCH] Removed debugging print code, reformated 2 small procedures.

---
 v8/src/compiler/midend/typedb.scm | 31 ++++++++++++++-----------------
 1 file changed, 14 insertions(+), 17 deletions(-)

diff --git a/v8/src/compiler/midend/typedb.scm b/v8/src/compiler/midend/typedb.scm
index 2f82ac78c..8707668c4 100644
--- a/v8/src/compiler/midend/typedb.scm
+++ b/v8/src/compiler/midend/typedb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: typedb.scm,v 1.9 1996/07/23 14:49:42 adams Exp $
+$Id: typedb.scm,v 1.10 1996/07/23 15:17:13 adams Exp $
 
 Copyright (c) 1996 Massachusetts Institute of Technology
 
@@ -321,25 +321,22 @@ MIT in each case. |#
 
 (let ()
   (define ((unchecked-function domain* range) . ops)
-    (for-each
-	(lambda (op)
-	  (define-operator-type op
-	    (primitive-procedure-type 
-	     (make-list (primitive-procedure-arity op) domain*) range
-	     'function 'unchecked)))
-      ops))
+    (define (process-element op)
+      (define-operator-type op
+	(primitive-procedure-type 
+	 (make-list (primitive-procedure-arity op) domain*) range
+	 'function 'unchecked)))
+    (for-each process-element ops))
 
   (define ((checked-function domain* range) . ops)
     (let ((arity #F))
-      (pp domain*)
-      (for-each
-	  (lambda (op)
-	    (if (exact-integer? op)
-		(set! arity op)
-		(define-operator-type op
-		  (primitive-procedure-type (make-list arity domain*) range
-					    'function))))
-	ops)))
+      (define (process-element op)
+	(if (exact-integer? op)
+	    (set! arity op)
+	    (define-operator-type op
+	      (primitive-procedure-type (make-list arity domain*) range
+					'function)))
+	(for-each process-element ops))))
 
   ((unchecked-function type:flonum type:flonum)
    flo:+ flo:- flo:* flo:/ flo:negate flo:abs flo:sqrt
-- 
2.25.1