string

example/pseudo/closure.scm

@@ -0,0 +1,15 @@
+(define (adder x)
+  (lambda (y)
+    (+ x y)))
+
+((adder 3) 4)
+
+
+
+(define (adder x)
+  (list (lambda (self y)
+          (+ (nth self 1) y))
+        x))
+
+(let ((closure (adder 3)))
+  ((nth closure 0) closure 4))