Added KMP-PROGRAM-SIZE which yields the number of pairs in a

KMP-scheme program.  This is indicative of the size of the program.

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 45040e142fa8057cd69d3ed3ed38b585f06501af..6ba1837312af31e5cdd820990b441ec72f7509e5 100644 (file)
--- 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))
+\f
+(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