From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Apr 1989 08:16:22 +0000 (+0000)
Subject: Don't sort the strings returned by the `list-completions' operation.
X-Git-Tag: 20090517-FFI~12155
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=85f7ba2fc36811affff77ef7bb2a2d6a7f72048e;p=mit-scheme.git

Don't sort the strings returned by the `list-completions' operation.
That operation is now responsible for determining the order.  This
allows customization of the sorting.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 9eaf99317..4c856ccdf 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.131 1989/04/15 00:51:58 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.132 1989/04/20 08:16:22 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -495,7 +495,7 @@ a repetition of this command will exit."
 	   "There are no possible completions of what you have typed.")
 	  (begin
 	    (write-string "Possible completions are:\n")
-	    (write-strings-densely (sort strings string<?)))))))
+	    (write-strings-densely strings))))))
 
 (define (completion-procedure/complete-word string
 					    if-unique