From 61a65ae2196afd1b44f53d4fa89115b7c0e5c41b Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 27 Nov 2011 22:37:14 +0900 Subject: [PATCH] implementing symbol->string in C to avoid outputting the escape syntax --- lib/init-7.scm | 3 --- 1 file changed, 3 deletions(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 08bbba91..ea0cee9f 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -400,9 +400,6 @@ "0" (list->string (if (negative? num) (cons #\- res) res))))))) -(define (symbol->string sym) - (call-with-output-string (lambda (out) (write sym out)))) - (define (list->string ls) (call-with-output-string (lambda (out) (for-each (lambda (ch) (write-char ch out)) ls))))