From dc35e511845b17800a2520459e1854fe612a73b0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 19 Dec 1994 19:40:32 +0000 Subject: [PATCH] Sort ed-ffi database after it is loaded in order to protect against user error in these files. --- v7/src/edwin/filcom.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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