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/func4.bth | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'tests/func4.bth') diff --git a/tests/func4.bth b/tests/func4.bth index 7c04cf3..640c889 100644 --- a/tests/func4.bth +++ b/tests/func4.bth @@ -1,7 +1,6 @@ -(do - (set f1 (fn (x) (+ x 10))) - (set f2 (fn (x) (* x 10))) - (set g (fn (f x) (puts (f x)) (puts (f x)))) - (g f1 26) - (g f2 6) - nil) +(set f1 (fn (x) (+ x 10))) +(set f2 (fn (x) (* x 10))) +(set g (fn (f x) (puts (f x)) (puts (f x)))) +(g f1 26) +(g f2 6) +nil -- cgit v1.2.3