From 15ebcc764c30c18f41f179d589ad1ad5a45194f1 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Thu, 21 Nov 2019 12:57:59 +0100
Subject: Better string and IO support

---
 tests/stringtest.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/stringtest.lisp

(limited to 'tests/stringtest.lisp')

diff --git a/tests/stringtest.lisp b/tests/stringtest.lisp
new file mode 100644
index 0000000..aa4898c
--- /dev/null
+++ b/tests/stringtest.lisp
@@ -0,0 +1,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 str i 10) ">"))
+        '())))
+(print "")
-- 
cgit v1.2.3-70-g09d2