Re: [PATCH] (Symbol Primitives): Add symbol, list->symbol, symbol-append.

[Mark Polesky <markpolesky@yahoo.com>]

[-- Attachment #1: Type: text/plain, Size: 255 bytes --]

Mark Polesky wrote:

> Did I do this right? If so, could someone apply this patch? I
> didn't quite follow all the details in doc/maint/README, perhaps
> because I'm on Windows, and I don't use emacs. Let me know.

oops. here's the patch.
- Mark



      

[-- Attachment #2: 0001-Symbol-Primitives-Add-symbol-list-symbol-symbol-appe.patch --]
[-- Type: application/octet-stream, Size: 1597 bytes --]

From 311c5d19412ed37a37bec1c338c6c32d93f9e0ef Mon Sep 17 00:00:00 2001
From: Mark Polesky <markpolesky@yahoo.com>
Date: Fri, 29 May 2009 20:23:30 -0700
Subject: [PATCH] (Symbol Primitives): Add symbol, list->symbol, symbol-append.

---
 doc/ref/api-data.texi |   32 +++++++++++++++++++++++++++++++-
 1 files changed, 31 insertions(+), 1 deletions(-)

diff --git a/doc/ref/api-data.texi b/doc/ref/api-data.texi
index b529199..104280a 100755
--- a/doc/ref/api-data.texi
+++ b/doc/ref/api-data.texi
@@ -4567,7 +4567,37 @@ strings returned by this procedure.
 
 Most symbols are created by writing them literally in code.  However it
 is also possible to create symbols programmatically using the following
-@code{string->symbol} and @code{string-ci->symbol} procedures:
+procedures:
+
+@deffn {Scheme Procedure} symbol char@dots{}
+@rnindex symbol
+Return a newly allocated symbol made from the given character arguments.
+
+@example
+(symbol #\x #\y #\z) @result{} xyz
+@end example
+@end deffn
+
+@deffn {Scheme Procedure} list->symbol lst
+@rnindex list->symbol
+Return a newly allocated symbol made from a list of characters.
+
+@example
+(list->symbol '(#\a #\b #\c)) @result{} abc
+@end example
+@end deffn
+
+@rnindex symbol-append
+@deffn {Scheme Procedure} symbol-append . args
+Return a newly allocated symbol whose characters form the
+concatenation of the given symbols, @var{args}.
+
+@example
+(let ((h 'hello))
+  (symbol-append h 'world))
+@result{} helloworld
+@end example
+@end deffn
 
 @rnindex string->symbol
 @deffn {Scheme Procedure} string->symbol string
-- 
1.6.3.msysgit.0