fix: add missing list

This commit is contained in:
SouthFox 2024-11-03 00:16:32 +08:00
parent 6f860bbb29
commit 6ff7eca031

View file

@ -173,7 +173,7 @@
(append part (append part
(if (= start 0 ) (if (= start 0 )
'() '()
(substring (car string-list) 0 start)) (list (substring (car string-list) 0 start)))
(list (func (substring (car string-list) start (+ start len)))) (list (func (substring (car string-list) start (+ start len))))
(if (= (+ start len) (string-length (car string-list))) (if (= (+ start len) (string-length (car string-list)))
'() '()