mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

(symbol->keyword, keyword->symbol): Removed, they are

Browse source 
now implemented in C.
This commit is contained in:
Marius Vollmer 2004-10-04 17:57:39 +00:00
parent c598539a67
commit 92b51af6c1
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ice-9/boot-9.scm
View file

@ -281,13 +281,6 @@
;;; {Keywords} ;;; {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) (define (kw-arg-ref args kw)
(let ((rem (member kw args))) (let ((rem (member kw args)))
(and rem (pair? (cdr rem)) (cadr rem)))) (and rem (pair? (cdr rem)) (cadr rem))))