string->list

[PILCH Hartmut <phm@a2e.de>]

> (string->list "abc")

Error: exception
       (string-length '())

For the time being I wrote my own library version which works:

(define (string->list-sub string len) (if (> len 0) (cons (string-ref string 0) 
(string->list-sub (substring string 1) (- len 1))) '()))
(define (string->list string) (and (string? string) (string->list-sub string 
(string-length string))))

-phm