From d9d307bc676387ab8894f9fb1ee722db8ecf7272 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Thu, 11 Jul 2024 15:43:18 +0100 Subject: set -> set! --- tests/mandel_local.bth | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'tests/mandel_local.bth') diff --git a/tests/mandel_local.bth b/tests/mandel_local.bth index 2cfa814..5b7fb9b 100644 --- a/tests/mandel_local.bth +++ b/tests/mandel_local.bth @@ -11,13 +11,13 @@ nzre 0 nzim 0) (while (< i 25) - (set nzre (+ cre (- (* zre zre) (* zim zim)))) - (set nzim (+ cim (* 2 (* zre zim)))) - (set zre nzre) - (set zim nzim) - (set mag (+ (* zre zre) (* zim zim))) - (set i (if (< mag 4) (+ i 1) 999))) + (set! nzre (+ cre (- (* zre zre) (* zim zim)))) + (set! nzim (+ cim (* 2 (* zre zim)))) + (set! zre nzre) + (set! zim nzim) + (set! mag (+ (* zre zre) (* zim zim))) + (set! i (if (< mag 4) (+ i 1) 999))) (write (if (< mag 4) "#" ".")) - (set pxx (+ pxx 1))))) + (set! pxx (+ pxx 1))))) (say "") - (set pxy (+ pxy 1)))) + (set! pxy (+ pxy 1)))) -- cgit v1.2.3