From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 7 Nov 1995 04:45:28 +0000 (+0000)
Subject: Added STRING->CHAR-SET.
X-Git-Tag: 20090517-FFI~5752
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf3721c771d3f27bb45a4380b00725a2dfb6bbe0;p=mit-scheme.git

Added STRING->CHAR-SET.
---

diff --git a/v7/doc/ref-manual/scheme.texinfo b/v7/doc/ref-manual/scheme.texinfo
index 3215c8fe8..ebd252015 100644
--- a/v7/doc/ref-manual/scheme.texinfo
+++ b/v7/doc/ref-manual/scheme.texinfo
@@ -2,7 +2,7 @@
 @iftex
 @finalout
 @end iftex
-@comment $Id: scheme.texinfo,v 1.54 1995/10/31 00:51:52 adams Exp $
+@comment $Id: scheme.texinfo,v 1.55 1995/11/07 04:45:28 adams Exp $
 @comment %**start of header (This is for running Texinfo on a region.)
 @setfilename scheme
 @settitle MIT Scheme Reference
@@ -5338,6 +5338,11 @@ of @sc{ascii} characters.  This is equivalent to @code{(apply char-set
 @var{chars})}.
 @end deffn
 
+@deffn {procedure+} string->char-set string
+Returns a character set consisting of all the characters that occur in
+@var{string}.
+@end deffn
+
 @deffn {procedure+} ascii-range->char-set lower upper
 @var{Lower} and @var{upper} must be exact non-negative integers
 representing @sc{ascii} character codes, and @var{lower} must be less