From e99298d8719c71ff23921fdb9a79197880ac5bfc Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Thu, 21 Nov 2019 23:23:38 +0100
Subject: Rotate arguments to substr and allow negative length

---
 tests/stringtest.lisp | 2 +-
 tests/stringtest.out  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/stringtest.lisp b/tests/stringtest.lisp
index aa4898c..57a7ec4 100644
--- a/tests/stringtest.lisp
+++ b/tests/stringtest.lisp
@@ -4,6 +4,6 @@
 
 (for 0 (length str) (lambda (i)
     (if (= (mod i 60) 0)
-        (sys-put-string stdout (concat "<" (substr str i 10) ">"))
+        (sys-put-string stdout (concat "<" (substr i 10 str) ">"))
         '())))
 (print "")
diff --git a/tests/stringtest.out b/tests/stringtest.out
index a0c457b..5011462 100644
--- a/tests/stringtest.out
+++ b/tests/stringtest.out
@@ -1 +1 @@
-<#include "><test.lisp"><d i 60) 0)><r str i 10>
+<#include "><test.lisp"><d i 60) 0)><r i 10 str>
-- 
cgit v1.2.3-54-g00ecf