From bf3721c771d3f27bb45a4380b00725a2dfb6bbe0 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 7 Nov 1995 04:45:28 +0000
Subject: [PATCH] Added STRING->CHAR-SET.

---
 v7/doc/ref-manual/scheme.texinfo | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
-- 
2.25.1