From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 20 Jul 1995 16:03:54 +0000 (+0000)
Subject: Added primitives to the histogram KEY<? predicate.
X-Git-Tag: 20090517-FFI~6167
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0ede349afde1d5a6a8c41d28df7e46703971f1b;p=mit-scheme.git

Added primitives to the histogram KEY<? predicate.
---

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)