From a0ede349afde1d5a6a8c41d28df7e46703971f1b Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 20 Jul 1995 16:03:54 +0000
Subject: [PATCH] Added primitives to the histogram KEY<? predicate.

---
 v8/src/compiler/base/stats.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v8/src/compiler/base/stats.scm b/v8/src/compiler/base/stats.scm
index 44d27b4e9..8e4f12668 100644
--- a/v8/src/compiler/base/stats.scm
+++ b/v8/src/compiler/base/stats.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: stats.scm,v 1.3 1995/03/12 16:31:16 adams Exp $
+$Id: stats.scm,v 1.4 1995/07/20 16:03:54 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -202,6 +202,8 @@ MIT in each case. |#
 	     (symbol<? u v))
 	    ((and (string? u) (string? v))
 	     (string<? u v))
+	    ((and (primitive-procedure? u) (primitive-procedure? v))
+	     (key<? (primitive-procedure-name u) (primitive-procedure-name v)))
 	    (else '(DONT KNOW))))
 
     (define (pp-alist alist)
-- 
2.25.1