Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

implementing symbol->string in C to avoid outputting the escape syntax

Browse source
This commit is contained in:
Alex Shinn 2011-11-27 22:37:14 +09:00
parent a5fbdccbfc
commit 61a65ae219
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/init-7.scm
View file

@ -400,9 +400,6 @@
"0" "0"
(list->string (if (negative? num) (cons #\- res) res))))))) (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) (define (list->string ls)
(call-with-output-string (call-with-output-string
(lambda (out) (for-each (lambda (ch) (write-char ch out)) ls)))) (lambda (out) (for-each (lambda (ch) (write-char ch out)) ls))))