将整数转换为List？

我目前正在尝试将整数转换为列表.

例如

1234 =>列表由1,2,3,4组成

我有这个:

(string->list (number->string 1234))

不幸的是,它添加了#和s.我猜这是一个数字的字符串表示.我该如何删除这些符号.因为我需要重新排序整数,并打印出一个列表.

这是上面命令的输出:

(#\ 1#\ 2#\ 3#\ 4)

这是我写的一个函数,每次除以10将数字减去:

(define (num->list num)
  (if (< num 10)
      (list num)
      (append (num->list (floor (/ num 10)))
              (list (- num (* 10 (floor (/ num 10))))))))

显然,这只适用于正整数,但如果你需要负数,它可以很容易地修改.