@ -106,8 +106,8 @@
(starts-with '(1 2 3) '(4 5 6 7)))
(assert-eq "starts-with test 5 failed"
(string->list "d")
(starts-with (string->list "abc") (string->list "abcd")))
(string->list "de")
(starts-with (string->list "abc") (string->list "abcde")))
;=============== tokenize ======================
(define (tokenize-generic tokens next) (Y