From 08d4f576714b69d336f736616c7375c9803de0f7 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sun, 28 Mar 2010 15:05:10 -0700 Subject: [PATCH] Add symbol->keyword. --- src/runtime/keyword.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 2.25.1