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

removing commented out code

Browse source
This commit is contained in:
Alex Shinn 2011-04-03 23:22:29 +09:00
parent a85cc23f31
commit 63c7151499
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/init.scm
View file

@ -347,11 +347,6 @@
(call-with-output-string
(lambda (out) (for-each (lambda (ch) (write-char ch out)) ls))))
;; (define (list->string ls)
;; (let lp ((ls ls) (res '()))
;; (cond ((null? ls) (string-concatenate (reverse res)))
;; (else (lp (cdr ls) (cons (make-string 1 (car ls)) res))))))
(define (string->list str)
(let lp ((i (string-cursor-prev str (string-cursor-end str))) (res '()))
(if (< i 0)