improved starts-with tests

day01-hard/main.scm

@@ -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