From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 28 Mar 2010 22:05:10 +0000 (-0700)
Subject: Add symbol->keyword.
X-Git-Tag: 20100708-Gtk~71^2~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=08d4f576714b69d336f736616c7375c9803de0f7;p=mit-scheme.git

Add symbol->keyword.
---

diff --git a/src/runtime/keyword.scm b/src/runtime/keyword.scm
index 02718bdfb..d8ce32126 100644
--- a/src/runtime/keyword.scm
+++ b/src/runtime/keyword.scm
@@ -71,4 +71,8 @@ USA.
 	(hash-table/put! *keyword-intern-table*
 			 (string-copy string)
 			 new-keyword)
-	new-keyword)))
\ No newline at end of file
+	new-keyword)))
+
+(define (symbol->keyword symbol)
+  (guarantee-symbol symbol 'symbol->keyword)
+  (string->keyword (symbol->string symbol)))
\ No newline at end of file