diff options
Diffstat (limited to 'tests/map.bth')
| -rw-r--r-- | tests/map.bth | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |