diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-07-11 15:43:18 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-07-11 15:43:18 +0100 |
| commit | d9d307bc676387ab8894f9fb1ee722db8ecf7272 (patch) | |
| tree | 135a8ca920a16c7f46cb6cf6b65d6e982163671e /tests/sumrec.bth | |
| parent | d8d3770f88d6acc37620d6577fa5a0b026fb1231 (diff) | |
set -> set!
Diffstat (limited to 'tests/sumrec.bth')
| -rw-r--r-- | tests/sumrec.bth | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |