implement closures

2026-09-29 21:07:16 +03:00
parent 1084b7d266
commit 8a3f51e833
10 changed files with 622 additions and 41 deletions
--- a/tests/modules/greet-app.sex
+++ b/tests/modules/greet-app.sex
@@ -26,4 +26,11 @@
  (printf "\n")
  (var m (enum mood) grumpy)
  (printf "mood %d\n" m)
+
+  (var add-10 (closure ((int)) int) (make-adder 10))
+  (printf "closure %d %d" (add-10 5) (apply-twice add-10 1))
+  (var base int 100)
+  (var here (closure ((int)) int)
+       (closure ((x int)) int (base) (return (+ base x))))
+  (printf " %d\n" (apply-twice here 1))
  (return 0))