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

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

[Mark Polesky]

Hey there.

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.

Thanks.
- Mark


      

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

[Mark Polesky]

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

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

[Neil Jerram]

Mark Polesky <markpolesky@yahoo.com> writes:

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

Hi Mark,

Many thanks for contributing this patch.  As it is more than a few
lines, we would need to get a copyright assignment from you before we
could incorporate it into Guile.  If you'd be willing to do that,
please reply to me off-list and I'll send you the relevant
instructions.

There's also one technical problem with the patch: the new doc says
"newly allocated", which is wrong because these procedures all return
interned symbols - which means that an important aspect of them is
that they will return an existing symbol if there is one with the
right name.

Would you like to propose some new wording to allow for this?
Alternatively, and assuming that you're happy to do the copyright
assignment, I'm sure I could think up something when I apply the
patch.

Regards,
     Neil