(define (string->list s)
  (##sys#check-string s 'string->list)
  (let ((len (##sys#size s)))
    (let loop ((i (fx- len 1)) (ls '()))
      (if (fx< i 0)
	  ls
	  (loop (fx- i 1)
		(cons (##core#inline "C_subchar" s i) ls))))))