tests/stringtest.lisp


1
2
3
4
5
6
7
8
9

#include "stdlib.lisp"

(define str (read-file "tests/stringtest.lisp"))

(for 0 (length str) (lambda (i)
    (if (= (mod i 60) 0)
        (sys-put-string stdout (concat "<" (substr i 10 str) ">"))
        '())))
(print "")