From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 14 Jun 2003 05:00:33 +0000 (+0000)
Subject: Tweak name of internal procedure to make indentation work better.
X-Git-Tag: 20090517-FFI~1888
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d505207cad7af2fffcce91543e0983e3c03afc8e;p=mit-scheme.git

Tweak name of internal procedure to make indentation work better.
---

diff --git a/v7/src/runtime/unicode.scm b/v7/src/runtime/unicode.scm
index 77ea6c329..121d3da88 100644
--- a/v7/src/runtime/unicode.scm
+++ b/v7/src/runtime/unicode.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unicode.scm,v 1.9 2003/04/14 19:40:04 cph Exp $
+$Id: unicode.scm,v 1.10 2003/06/14 05:00:33 cph Exp $
 
 Copyright 2001,2003 Massachusetts Institute of Technology
 
@@ -280,8 +280,7 @@ USA.
 	(values low '()))))
 
 (define (alphabet . chars)
-  (%code-points->alphabet
-   (sorted-chars->wfcp-list (remove-duplicate-chars chars))))
+  (%code-points->alphabet (chars->wfcp-list (remove-duplicate-chars chars))))
 
 (define (remove-duplicate-chars chars)
   (let ((table (make-eq-hash-table)))
@@ -291,7 +290,7 @@ USA.
 	      chars)
     (hash-table/key-list table)))
 
-(define (sorted-chars->wfcp-list chars)
+(define (chars->wfcp-list chars)
   (let ((chars (sort chars char<?)))
     (if (pair? chars)
 	(let loop