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