From d9d307bc676387ab8894f9fb1ee722db8ecf7272 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Thu, 11 Jul 2024 15:43:18 +0100 Subject: set -> set! --- tests/map.bth | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/map.bth') diff --git a/tests/map.bth b/tests/map.bth index aa9f45e..9f739bb 100644 --- a/tests/map.bth +++ b/tests/map.bth @@ -1,12 +1,12 @@ -(set map' (fn (f ix in out) +(set! map' (fn (f ix in out) (if (< ix (len in)) (let (elem (in ix) felem (f elem) newix (+ 1 ix)) - (set (out ix) felem) + (set! (out ix) felem) (map' f newix in out)) out))) -(set map (fn (f in) (map' f 0 in (arr)))) +(set! map (fn (f in) (map' f 0 in (arr)))) (let (a [1 2 3 4 5 6 7 8 9] f1 (fn (x) (* 10 x)) -- cgit v1.2.3