From d505207cad7af2fffcce91543e0983e3c03afc8e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 14 Jun 2003 05:00:33 +0000 Subject: [PATCH] Tweak name of internal procedure to make indentation work better. --- v7/src/runtime/unicode.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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