From bf196706936065e15386ef05962411fef3f3e6b4 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 5 Jan 1995 22:31:00 +0000
Subject: [PATCH] Added KMP-PROGRAM-SIZE which yields the number of pairs in a
 KMP-scheme program.  This is indicative of the size of the program.

---
 v8/src/compiler/midend/utils.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 45040e142..6ba183731 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.6 1994/11/26 22:06:43 gjr Exp $
+$Id: utils.scm,v 1.7 1995/01/05 22:31:00 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -1062,3 +1062,12 @@ MIT in each case. |#
 (define (code/rewrite-table/copy table)
   (hash-table/copy table
 		   code/rewrite-table/make))
+
+(define (kmp-program-size program)
+  (let walk ((program program) (size 0))
+    (cond ((not (pair? program))
+	   size)
+	  ((QUOTE/? program)
+	   (+ size 1))
+	  (else
+	   (walk (car program) (walk (cdr program) (+ size 1)))))))
\ No newline at end of file
-- 
2.25.1