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