From d046c7d20fd283c90495d3af4bb53d1cfb2a0812 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Thu, 8 Aug 2024 14:44:48 +0100 Subject: misc --- tests/iota_rec.bth | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/iota_rec.bth') diff --git a/tests/iota_rec.bth b/tests/iota_rec.bth index 8e274a4..5ce196d 100644 --- a/tests/iota_rec.bth +++ b/tests/iota_rec.bth @@ -1,6 +1,6 @@ (defn (iota' arr i max) (if (< i max) - (iota' (append arr i) (+ i 1) max) + (iota' (append! arr i) (+ i 1) max) arr)) (set! _G_iota' iota') (defn (iota n) (_G_iota' [] 0 n)) -- cgit v1.2.3