From c1ad2da9bd1497737c46c53e27f915cc26bc49a6 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Wed, 26 Jun 2024 13:11:00 +0100 Subject: remove explicit toplevel (do ...) from tests --- tests/fizzbuzz.bth | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'tests/fizzbuzz.bth') diff --git a/tests/fizzbuzz.bth b/tests/fizzbuzz.bth index 82e80cf..42c1760 100644 --- a/tests/fizzbuzz.bth +++ b/tests/fizzbuzz.bth @@ -1,10 +1,9 @@ -(do - (set n 1) - (while (< n 30) - (puts - (if (= 0 (% n 5)) - (if (= 0 (% n 3)) "fizzbuzz" "buzz") - (if (= 0 (% n 3)) "fizz" n))) - (set n (+ n 1)))) +(set n 1) +(while (< n 30) + (puts + (if (= 0 (% n 5)) + (if (= 0 (% n 3)) "fizzbuzz" "buzz") + (if (= 0 (% n 3)) "fizz" n))) + (set n (+ n 1))) -- cgit v1.2.3