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/func3.bth | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'tests/func3.bth') diff --git a/tests/func3.bth b/tests/func3.bth index 2da8cc9..59392e1 100644 --- a/tests/func3.bth +++ b/tests/func3.bth @@ -1,9 +1,8 @@ -(do - (set f1 (fn (a b) (* a b))) - (set f2 (fn (x) - (set xx x) - (let (a 3 - g (fn (y) (+ y 7))) - (* (g a) (g xx))))) - (puts (f1 6 6)) - (f2 7)) +(set f1 (fn (a b) (* a b))) +(set f2 (fn (x) + (set xx x) + (let (a 3 + g (fn (y) (+ y 7))) + (* (g a) (g xx))))) +(puts (f1 6 6)) +(f2 7) -- cgit v1.2.3