Add symbol->keyword.

diff --git a/src/runtime/keyword.scm b/src/runtime/keyword.scm
index 02718bdfba27a1c7778953553aee4e8a9cec77f3..d8ce321265f4e3aaf09429435527f7b6ab1a8352 100644 (file)
--- 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