Data update

Task/Closures-Value-capture/Acornsoft-Lisp/closures-value-capture-1.lisp

@@ -0,0 +1 @@
+(freeze '(a b) '(lambda (c) (list a b c)))

Task/Closures-Value-capture/Acornsoft-Lisp/closures-value-capture-2.lisp

@@ -0,0 +1,3 @@
+(lambda (c)
+  ((lambda ((a . 1) (b . 2))
+     (list a b c))))

Task/Closures-Value-capture/Acornsoft-Lisp/closures-value-capture-3.lisp

@@ -0,0 +1,2 @@
+( (lambda ((a . 1) (b . 2))
+    (list a b c)) )

Task/Closures-Value-capture/Acornsoft-Lisp/closures-value-capture-4.lisp

@@ -0,0 +1,9 @@
+(defun freeze (_fvars_ _lambda-expr_)
+  (freeze-vars
+    (mapc cons _fvars_ (mapc eval _fvars_))
+    (cadr _lambda-expr_)
+    (cddr _lambda-expr_)))
+
+(defun freeze-vars (bindings lvars lbody)
+  (list 'lambda lvars
+        (list (cons 'lambda (cons bindings lbody)))))

Task/Closures-Value-capture/Acornsoft-Lisp/closures-value-capture-5.lisp

@@ -0,0 +1,9 @@
+(defun range (from to)
+  (cond ((greaterp from to) '())
+        (t (cons from (range (add1 from) to)))))
+
+(defun example ()
+  (mapc '(lambda (f) (f))
+        (mapc '(lambda (i)
+                 (freeze '(i) '(lambda () (times i i))))
+              (range 1 10))))