From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 19:40:32 +0000 (+0000)
Subject: Sort ed-ffi database after it is loaded in order to protect against
X-Git-Tag: 20090517-FFI~6866
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dc35e511845b17800a2520459e1854fe612a73b0;p=mit-scheme.git

Sort ed-ffi database after it is loaded in order to protect against
user error in these files.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index d0e26393d..1d6a4aae9 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: filcom.scm,v 1.179 1994/03/16 23:26:52 cph Exp $
+;;;	$Id: filcom.scm,v 1.180 1994/12/19 19:40:32 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -215,6 +215,7 @@ invocation."
   ;; DATABASE -must- be a vector whose elements are all three element
   ;; lists.  The car of each element must be a string, and the
   ;; elements must be sorted on those strings.
+  (sort! database (lambda (x y) (string<? (car x) (car y))))
   (lambda (buffer)
     (let ((entry
 	   (let ((pathname (buffer-pathname buffer)))