From d9d307bc676387ab8894f9fb1ee722db8ecf7272 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Thu, 11 Jul 2024 15:43:18 +0100
Subject: set -> set!

---
 tests/sumrec.bth | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/sumrec.bth')

diff --git a/tests/sumrec.bth b/tests/sumrec.bth
index 0bbf2b6..0d493e0 100644
--- a/tests/sumrec.bth
+++ b/tests/sumrec.bth
@@ -1,7 +1,7 @@
-(set f' (fn (x acc)
+(set! f' (fn (x acc)
 	(if (< x 1) 
 		acc
 		(f' (- x 1) (+ acc x)))))
-(set f (fn (x) (f' x 0)))
+(set! f (fn (x) (f' x 0)))
 (say (f 10))
 (say (f 1000))
-- 
cgit v1.2.3