From 92b51af6c16ec2f71a9705678b8cc6e3d9b97008 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Mon, 4 Oct 2004 17:57:39 +0000
Subject: [PATCH] (symbol->keyword, keyword->symbol): Removed, they are now
 implemented in C.

---
 ice-9/boot-9.scm | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index c1f8805b8..9f0f73e77 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -281,13 +281,6 @@
 ;;; {Keywords}
 ;;;
 
-(define (symbol->keyword symbol)
-  (make-keyword-from-dash-symbol (symbol-append '- symbol)))
-
-(define (keyword->symbol kw)
-  (let ((sym (symbol->string (keyword-dash-symbol kw))))
-    (string->symbol (substring sym 1 (string-length sym)))))
-
 (define (kw-arg-ref args kw)
   (let ((rem (member kw args)))
     (and rem (pair? (cdr rem)) (cadr rem))))