| commit | ddc975483eae62ad9e3393a4ac27954c5ed9043f | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Sun Jul 04 11:47:42 2021 -0700 |
| committer | swissChili <swisschili@fastmail.com> | Sun Jul 04 11:47:42 2021 -0700 |
| tree | 6bdcae1c6b0ea602a6b38128901f7fc09ab290aa | |
| parent | f1ba8c1cc4797d0b53ac6d2bc8a1e758f1d3b89d [diff] [blame] |
Add lexical closures
diff --git a/src/lisp/test-closures.lisp b/src/lisp/test-closures.lisp new file mode 100644 index 0000000..1311a98 --- /dev/null +++ b/src/lisp/test-closures.lisp
@@ -0,0 +1,5 @@ +(defun main () + (let1 (number 3) + (let1 (adds-3 (lambda (n) + (+ n number))) + (print (apply adds-3 '(4))))))