From c1ad2da9bd1497737c46c53e27f915cc26bc49a6 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Wed, 26 Jun 2024 13:11:00 +0100
Subject: remove explicit toplevel (do ...) from tests

---
 tests/vars4.bth | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'tests/vars4.bth')

diff --git a/tests/vars4.bth b/tests/vars4.bth
index 20820e3..b4a2f25 100644
--- a/tests/vars4.bth
+++ b/tests/vars4.bth
@@ -1,8 +1,7 @@
-(do
-	(set x 100)
+(set x 100)
+(puts x)
+(let (x 20)
 	(puts x)
-	(let (x 20)
-		(puts x)
-		(set x 30)
-		(puts x))
-	x)
+	(set x 30)
+	(puts x))
+x
-- 
cgit v1.2.3